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IDENTIFICATION 
PRODUCT CODE: AC-F 400A-MC 
PRODUCT NAME : CVKDBAO PDT=11 110/130 SYS EX 
PRODUCT DATE: APRIL 1979 
MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATICN IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE DECX/11 
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1.0 GENERAL PROGRAM INFORMATION. 


1.1 PROGRAM PURPOSE (ABSTRACT). 


THE CVKDBAO PDT-11 110/130 SYSTEM EXERCISER TESTS THE PROCESSOR'S 
ABILITY TO OPERATE ALL ITS PERIPHERALS IN INTERRUPT MODE AT THE 
SAME TIME WITH EMPHASIS ON THE TUS8 TAPE SUBSYSTEMS. 

11 SHOULD BE NOTED THAT THIS PROGRAM IS NOT A DIAGNOSTIC OF THE 
PERIPHERALS BUT A SERIES OF SYSTEM INTERACTION TESTS. 


THE PROGRAM IS DEFAULTED TO EXERCISE THE CLUSTER TERMINALS AND THE 
COMMUNICATION (COMM) PORT IN INTERNAL LOOPBACK MODE (MAINTENANCE MODE). 
THE DEFAULT CAN BE CHANGED TO EXERCISE THE CLUSTER TERMINALS 

AND/OR THE COMM PORT IN EXTERNAL LOOPBACK (SPECIAL LOOPBACK 

CONNECTORS REQUIRED). SEE PROGRAM OPTIONS SEC. 2.4. 


TESTING OF THE PHYSICAL CLUSTER TERMINALS OR COMM DEVICE WILL NOT BE PERFORMED. 


THE PRINTER WILL BE EXERCISED IF SIZING DETERMINES IT TO BE PRESENT OR 
IF AN EXTERNAL LOOPBACK CONNECTOR IS INSTALLED. 


AFTER THE MEMORY HAS BEEN TESTED AND ALL THE PERIPHERALS ARE 
BEING EXERCISED AND INTERRUPTING, THE TUS8 SUBSYSTEM TESTS WILL BEGIN. 
SEE TEST SUMMARY SEC. 7.0. 
1.2 SYSTEM REQUIREMENTS. 
HARDWARE REQUIREMENTS: 
PDT-11 110/130 SYSTEM 
8K MEMORY (8K WORDS) - “MINIMUM 


EXTERNAL LOOPBACK CONNECTORS (OPTIONAL) FOR COMM AND CLUSTER TERMINAL PORTS. 
(SEE PROGRAM OPTIONS SEC. 2.4) 


SOFTWARE REQUIREMENTS: 


THIS EXERCISER 1S DESIGNED TO RUN IN ANY OF THE FOLLOWING WAYS: 
STAND ALONE 
WITH APT MONITOR 
WITH XXDP MONITOR 
IT 1S NOT DESIGNED TO RUN WITH THE DIAGNOSTIC SUPERVISOR. 
1.3 RELATED DOCUMENTS AND STANDARDS. 
+ anaes ENGINEERING STANDARDS AND CONVENTIONS 175-003-009-02 
A 


MD-11-DZZ2MA 
SYSMAC MD-11=DZQAC 
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‘ . 
1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


THIS EXERCISER ASSUMES THAT THE POWER UP SELF TEST RUNS ERROR FREE. 


1.5 ASSUMPTIONS 


1F THE PROGRAM 1S TO BE LOADED AND EXECUTED FROM THE APT MANUFACTURING 
SYSTEM, IT IS ASSUMED THAT LOCATION SDEVM HAS BEEN INITIALIZED TO 
THE CONFIGURATION OF THE PDT-11 TO BE TESTED. 


1.6 RUNNING SYSTEMS PROGRAMS 


UNLESS THE SYSTEMS PROGRAMS ARE KNOWN TO INITIALIZE THE BAUD 
RATES OF EACH DEVICE THRU THE PARAMETER REGISTER, 

THE OPERATOR SHOULD POWER DOWN AND UP AGAIN WHEN FINISHED RUNNING THIS EXERCISER. 
THIS 1S TO RESTORE THE PDT-11 TO ITS DEFAULT BAUD RATES. 

OTHERWISE, THE DEVICES WILL ATTEMPT TO RUN AT WHATEVER BAUD RATES 

WERE LAST USED BY THIS EXERCISER. 


' 


2.0 OPERATING INSTRUCTIONS. 


2.1 LOADING AND STARTING PROCEDURES. 


USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED 
MEDIA, OR PROCEDURE FOR LOADING PROGRAMS UNDER XXDP MEDIA. 


THE PROGRAM WILL AUTO-START AFTER LOADING TO LOCATION ‘START’. 
11 CAN BE STARTED FROM LOCATION 200. 
NOTE: ALL RESTARTS MUST BE FROM LOCATION 240. 


THE FOLLOWING EXAMPLE SHOWS A TYPICAL PROGRAM STARTUP ON A 24K 
SYSTEM WITHOUT A PRINTER AND THE OPERATOR DROPPING CLUSTER TERMINAL 
NUMBER TWO FROM THE TEST. 


CVKDBAO PDT-11 110/130 SYS EX. 0 PASSES 0 TOTAL ERRORS ( 0 SOFT) 
SWR = XXXXXX NEW = 


THE PROGRAM SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (SWREG AT LOCATION 176) FROM THE CONSOLE. XXXXXX IN THE 
ABOVE TYPEOUT JS THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER. 
REFER TO SECTION 2.3, STEPS 3 AND 4, FOR OPERATOR ACTION AND THE 
OPERATIONAL SWITCH SETTINGS. IN ORDER TO DROP A DEVICE FROM THE 
TEST, AS IN THIS EXAMPLE, THE OPERATOR MUST SET BIT 14 (40000) IN 
THE SWITCH REGISTER. 


-* stern 
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IF BIT 14 (40000) IS SET IN THE SOFTWARE SWITCH REGISTER, THE 
PROGRAM WILL ALLOW THE OPERATOR TO CHANGE LOCATION SDEVM VIA 
THE CONSOLE. IF BIT 14 (40000) IS SET, THE PROGRAM WILL TYPE 
THE FOLLOWING: 


SDEVM = XXXXXX NEW = 


XAXXXXK IN THE ABOVE TYPEOUT IS THE OCTAL CONTENTS OF THE DEVICE 

MAP, LOCATION SDEVM. REFER TO SECTION 2.3, STEPS 3 AND 4, FOR THE METHOD 
USED TO CHANGE THE LOCATION. ALL REFERENCES IN SECTION 2. -3, STEP 3, 

TO LOCATION 176 OR SOFTWARE ght REGISTER WILL IMPLY LOCATION 

SDEVM. REFER TO SECTION 2.4.1 FOR A DEFINITION OF EACH BIT IN 

LOCATION SDEVM. FOR THIS EXAMPLE, TO DROP CLUSTER TERMINAL NUMBER 

TWO FROM THE TEST, THE OPERATOR MUST SET BIT 13 (20000) INTO 

LOCATION SDEVM. 


THE PROGRAM, AFTER THE OPERATOR HAS PERFORMED THE ABOVE, WILL 

AUTOSIZE MEMORY, DETERMINE WHAT OPTIONS ARE PRESENT (PRINTER, CLUSTER 
AND TUS8), WHAT DEVICES ARE NOT TO BE TESTED VIA LOCATION SDEVM, 

AND THEN TYPEOUT ON THE CONSOLE TERMINAL ITS FINDINGS. FOR THE 
EXAMPLE ABOVE, THE PROGRAM WILL TYPE THE FOLLOWING: 


24K MEMORY PRESENT 
PRINTER NOT PRESENT 
CLUSTER TERMINAL #2 TESTING DROPPED 


INSERT SCRATCH CASSETTES, TYPE *P* TO PROCEED 
(PROGRAM HALTS AND WAITS FOR 'P’ AND THEN CONTINUES) 


NOTE1: IF THE OPERATOR INDICATES VIA_THE SWITCH REGISTER THAT 
THE CONSOLE TERMINAL IS A V1T132, ALL REFERENCES IN THIS 
DOCUMENT AND ALL TYPEOUTS BY THE PROGRAM DESCRIBING OR 
INDICATING THE VT100 WILL IMPLY V1132. 


NOTE2: BECAUSE HALTS ARE PROHIBITED UNDER APT, IT WILL ASSUME 
SCRATCH CASSETTES ARE ALREADY IN THE DRIVES AND BYPASS PRINTING 
THE WARNING MESSAGE AND THE HALT. 


NOTES: IF RUNNING IN XXDP CHAIN MODE, THE PROGRAM WILL SET 
BIT 8 IN SDEVM TO DROP TESTING ON TUS8 TAPE UNIT : (LOAD DEVICE). 
THE WARNING MESSAGE AND HALT WILL BE BYPASSED BY THE 
PROGRAM. IF BIT 9 IN SDEVM IS SET TO A ZERO, THE 
PROGRAM WILL TEST TUS8 TAPE UNIT 1. 11 1S ASSUMED THAT 
A SCRATCH CASSETTE IS IN TAPE DRIVE UNIT 1. 


NOTES: IF TUS8 TESTING IS INHIBITED (1400 IN SOEVM), OR THE SYSTEM 
1S A PDT-11 110, THE CASSETTE MESSAGE AND HALT ARE BYPASSED. 


NOTES: IF THE PROGRAM DETERMINES AN OPTION IS NOT PRESENT AND 
SDEVM INDICATES THE OPTION JS TO BE TESTED, THE PROGRAM 
WILL NOT TEST THE DEVICE. 


THE PROGRAM WILL BEGIN ACTUAL TESTING AT THIS POINT. 
SEE SUMMARY OF TESTS SEC. 7.0. 
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DURING THE TESTS, THE PROGRAM WILL PRINT PROGRESS REPORTS (SEE 
SEC. 4.0) IF BIT 12 1S SET IN THE SWREG (SEE SEC 2.3). 


END OF PASS AND TOTAL ERROR COUNT 1S PRINTED AT THE CONCLUSION OF TESTING. 
THE PROGRAM WILL THEN JUMP TO THE BEGINNING OF THE ACTUAL TESTING 
AND THE SEQUENCE 1S REPEATED UNTIL STOPPED BY THE OPERATOR 


SPECIAL ENVIRONMENTS. 


BEFORE INITIATING PDT-11 TESTING UNDER APT, THE UNIT UNDER TEST 
MUST BE INITIALIZED EITHER BY THE KEYBOARD RESET FUNCT IGS OR 
BY TURNING THE UNIT UNDER TEST OFF AND THEN ON. 


IF SYNCHRONOUS (SYNC) COMMUNICATION (COMM) TESTS ARE RUN (BIT10 
IN SDEVM = 0) WHEN RUNNING UNDER APT, THE ASYNCHRONOUS ‘ASYNC) 

COMM TESTS SHOULD ALSO BE RUN (BIT11 IN SDEVM = 0). THIS WILL 

LEAVE THE COMM PORT SETUP IN ASYNC MODE SO APT WILL BE ABLE TO 

COMMUNICATE WITH THE UNIT UNDER TEST (UUT). 


IF THE PROGRAM IS TO BE RUN UNDER APT, SET LOCATION SENV TO 001 
AND LOCATION SENVM TO THE DESIRED SETTINGS FROM THE BITS LISTED BELOW: 


B1T5=0 (000) ENABLE CONSOLE OUTPUT - FIRST PASS ONLY 
BITS=1 (040) DISABLE CONSOLE OUTPUT 


BIT7=0 (000) USE PROGRAM DEFAULT SWITCH SETTINGS (000000) 
BIT7=1 (200) USE APT SWITCH REGISTER (SSWREG) 
(SEE SECTION 2.3 FOR OPERATIONAL SWITCH SETTINGS) 


IF BIT 5 EQUALS ZERO, THE PROGRAM WILL REPORT DURING THE FIRST 
PASS OF THE PROGRAM, AUTO-SIZING INFORMATION, DEVICES DROPPED 
FROM THE TEST AS SPECIFIED BY SDEVM, ERRORS, AND THE END OF PASS 
PRINTOUT. BIT 5 1S UNCONDITIONALLY SET AT THE END OF PASS TO 
ENSURE THAT TYPEOUTS ARE NOT SENT OVER THE COMM PORT TO APT. IF 
THIS IS NOT DONE, APT WOULD REPORT A HUNG DIAGNOSTIC. SETTING 
BIT 7 EQUAL TO A 1, WILL ALLOW THE PROGRAM TO USE LOCATICN $SWREG 
AS THE SOFTWARE SWITCH REGISTER (SEE SECTION 2.5 FOR OPERATIONAL 
SWITCH SETTING). 


IF 1T JS NECCESSARY TO ALLOW A NUMBER OF TUS8 SOFT ERRORS TO OCCUR 
BEFORE REPORTING AN ERROR TO APT, SET LOCATION SUSWR TO THE OCTAL 
NUMBER OF ALLOWABLE ERRORS. IF THE PROGRAM DETECTS A SOFT ERROR 
ON THE TUS8 TAPE DRIVE GREATER THAN THE NUMBER IN SUSWR, THE ERROR 
WILL BE REPORTED TO APT. LOCATION SUSWR IS NORMALLY SET TO ZERO 
WHICH WILL CAUSE ALL SOFT ERRORS TO BE REPORTED TO APT. 


THE DEVICE MAP ($DEVM) SHOULD BE SET UP AS DESCRIBED IN SECTION 2.4.1 


es ee 
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2.5 OPERATIONAL SWITCH SETTINGS 


THIS PROGRAM SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE 
SWITCH REGISTER (SWREG AT LOC. 176) FROM THE CONSOLE. THIS CAN BE 
ACCOMPLISHED BY DOING THE FOLLOWING: 


1) TYPE CONTROL G <*G>; (THIS WILL ALLOW THE CONSOLE TO ENTER 
DATA INTO LOC. 176). 


2) THE MACHINE WILL THEN TYPE:* SWR=XXXXXX NEWS" (XXXXXX 1S 
THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER.) 


3) AFTER THE "NEW=" HAS BEEN TYPED THEN THE OPERATOR CAN DO 
ONE OF THE FOLLOWING AT THE CONSOLE: 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED By 
A_<CR>. (ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED). 
LEADING ZEROS NEED NOT BE TYPED, AND IF MORE THAN 6 
DIGITS ARE TYPED, THE LAST 6 WILL BE USED. IF A <CR> 
1S THE FIRST KEY DEPRESSED, THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


IF A COKTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL 
SEND YOU BACK TO STEP 3. 


If THE INPUT CHARACTER IS NOT ONE OF THE CHARACTERS 
MENTIONED ABOVE, A QUESTION MARK (?) WILL BE TYPED 


FOLLOWED BY A CARRIAGE RETURN AND A LINE FEED. ANY INPUT 
TYPED UP TO THE UNRECOGNIZABLE CHARACTER WILL BE IGNORED 
AND THE PROGRAM WILL SEND YOU BACK TO STEP 3 ABOVE. 


4) THE DIAGNOSTIC WILL CONTINUE ON TYPING <CR>. 
SOFTWARE SWITCH REGISTER OPTIONS (SUREG) 


HALT ON ERROR 

CHANGE gir i CONSOLE (ONLY AT 
PROGRAM START TIME). 

INHIBIT ERROR TYPEOUTS 

ENABLE PERFORMANCE REPORTS 

BELL AND BLINKING BOLD TYPEOUT ON ERROR 
CONSOLE wo 3s A vT132 (SEE 

SECTION 2.1 NOTE1 
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PROGRAM OPTIONS. 


TYPING CONTROL C (*C) ON THE CONSOLE KEYBOARD AFTER THE PROGRAM 
HAS STARTED TESTING THE PDT-11, WILL CAUSE THE PROGRAM TO BE 
Paace Sunes REFER TO SECTION 2.1 OF THIS DOCUMENT FOR STARTING 


DEVICE MAP=--TESTING CONTROL 
A DEVICE MAP (SDEVM) IS EXAMINED BY THE PROGRAM TO DETERMINE WHICH 


DEVICES WILL BE TESTED, THE CLUSTER TERMINALS, THE ASYNCHRONOUS (ASYNC)/ 
SYNCHRONOUS (SYNC) COMMUNICATION (COMM) PORT, THE PRINTER, CLOCK, 


.VT100, MEMORY AND THE TUS8. 


THE DEFAULT VALUE = 000017 IT CAN BE CHANGED TO DO THE FOLLOWING: 


SDEVM 
000017= INTERNAL LOOPBACK FOR ALL CLUSTER TERMINALS. 
INTERNAL LOOPBACK FOR COMM PORT. 
TEST CLUSTER OPTION 
TEST PRINTER, ASYNC/SYNC COMM PORTS, vT100, 
TEST TUS8 DRIVE 0 AND 1, CLOCK, AND MEMORY. 
BIT 15 SET= 100000= DROP PRINTER TESTS 
14 SET= 40000= DROP CLUSTER TERM #3 TESTS 
13 SET= 20000= #2 
12 SET= 10000= #1 i 
11 SET= 4000= DROP ASYNC COMM TESTS 
10 SET= 2000= DROP SYNC COMM TESTS 
9 SET= 1000= DROP TUS8 DRIVE 1 TESTS 
8 SET= 400= DROP TUS58 DRIVE 0 TESTS 
7 SET= 200= DROP CLOCK ph . 
6 SET= 100= DROP vT100 TEST 
5 SET= 40= Tu58 ee egd ys ‘pLoc TESTING (0-777 OCTAL) 
4 SET= 20= DROP MEMORY TESTS 
BIT 3 SET= 10= INT. LOOPBACK (MAINT MODE) FOR COMM PORT 
2 SET= = FOR CLUSTER TERM #1 
1 SET= 2= FOR #2 
0 SET= 1= FOR a3 
NOTES: 


1. THE CLUSTER TERMINALS ARE INTENDED TO RUN IN LOOPBACK MODE ONLY. 
THE COMM PORT IS INTENDED TO RUN IN LOOPBACK MODE ONLY. 

THE PRINTER IS TESTED IN TRANSMIT MODE ONLY. 

17 WILL BE EXERCISED IF SIZING DETERMINES IT IS PRESENT 

OR LOOPBACK CONNECTOR INSTALLED AND BIT 15 = 0. 


THE CLUSTER TERMINALS CAN NOT BE TESTED IN EXTERNAL LOOPBACK 
WHEN THE COMM PORT JS INITIALIZED TO RUN IN INTERNAL LOOPBACK (S$DEVM=XXxXx10), 


w %& 
° © 


=> 
8 
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5. BITS 14-10 SETTINGS (SDEVM) WILL OVERRIDE BITS 3-0 SETTINGS. 
EXECUTION TIMES. 


ASSUMING ALL DEVICES AND NO TAPE SUBSYSTEMS PRESENT: 
1°ST PASS: 


APPROXIMATELY 80 SEC TO TEST vT100, CLOCK, PRINTER, COMM 
DEVICES (SYNC/ASYNC) AND CLUSTER TERMINALS. 


SUBSEQUENT PASSES: 
SAME AS ABOVE. 

ASSUMING ALL DEVICES AND TAPE SUBSYSTEM (TU58) PRESENT: 

1°ST PASS: 
MAXIMUM TIME OF APPROXIMATELY 10.5 MINUTES TO TEST ALL DEVICES 
AS ABOVE AND BOTH TU58 TAPE DRIVES. TEST TIME WILL VARY 
CONSIDERABLY WITHIN THE 10.5 MINUTES WHILE TESTING THE TU5S8 
TAPE DRIVES BECAUSE OF RANDOM BLOCK SELECTION CAUSING VARYING 
SEARCH TIMES. THIS CAN BE MINIMIZED BY SEQUENTIAL BLOCK 
TESTING IF SELECTED (BITS IN SDEVM = 1). 

SUBSEQUENT PASSES: 
SAME AS ABOVE FOR THE TAPE SUBSYSTEM. 

POWER FAIL 


THERE 1S NO POWER FAIL AUTO-RESTART CAPABILITY IN THE PDT-11. 


SEQ 0010 
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3.0 ERROR INFORMATION. 


A ‘WATCH-DOG"* TIMER 1S USED BY THE PROGRAM AT VARIOUS TIMES TO 

ENSURE THAT THE VT100 IS RUNNING. IF XOFF IS TRANSMITTED 

MANUALLY WHILE THE PROGRAM IS EXECUTING THE ‘WATCH-DOG"’ TIMER 

CODE AND XON IS + TRANSMITTED MANUALLY IN THE ALLOTTED 

AMOUNT OF TIME, A TIK*GUT WILL OCCUR AND THE PROGRAM WILL REPORT 
A "'VT100 HUNG” ERROR MESSAGE. THEREFORE, THE OPERATOR SHOULD 

NOT PRESS ANY KEYS ON THE VT100 KEYBOARD WHICH WILL CAUSE 

XOFF TO BE SENT. 


WHEN TESTING THE TUS8, THE SOFT ERROR COUNT WILL BE INCREMENTED 
(FOLLOWING THE ERROR REPORT), IF THE TUS8 INDICATES IN ITS SUCCESS 
CODE BYTE (CONTAINED IN THE END PACKET) THAT THE READ OR WRITE 
FUNCTION SUCCEEDED WITH RETRIES. 


ALL DEVICE ERRORS ON THE TUSS8 WILL CAUSE THE PROGRAM TO REPORT 

THE ERROR AND THEN DROP TESTING OF THE TU5S8 UNTIL THE NEXT PROGRAM 
PASS. A HARD READ OR WRITE ERROR DETECTED ON THE TU58 DRIVES 

WILL CAUSE THE PROGRAM TO REPORT THE ERROR AND DROP THE FAILING 
DRIVE FOR THIS PASS. IF ANOTHER DRIVE IS AVAILABLE, THE PROGRAM 
WILL START TESTING ON THIS DRIVE FOLLOWING THE MESSAGE ‘'TUS8 

TAPE UNIT X DONE’’ (X=UNJT NUMBER). A SOFT READ OR WRITE ERROR 
WILL CAUSE THE PROGRAM TO CONTINUE TESTING ON iHIS DRIVE FOLLOWING 
THE ERROR MESSAGE. A SOFT ERROR IS WHEN THE TUS8 INDICATES THAT 
THE FUNCTION SUCCEEDED BUT WITH RETRIES. 


ERROR REPORTING PROCEDURE. 


VT100 LINES 2-13 ARE USED FOR THE SCROLLING REGION FOR ERROR 
AND PERFORMANCE REPORTS. (LINES 14-24 ARE USED FOR DISPLAY 
TESTS, IF ENABLED.) 


TYPICAL ERROR PRINTOUTS ARE SHOWN BELOW: 
(ALL VALUES TYPED ARE OCTAL.) 


_ CLUSTER TERM #3 DATA COMP ERR 
ERROR # ERR PC EXPECT RECVD 
000011 006516 000200 000100 
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TU58 DEVICE ERROR 
RROR # ERR PC ERR WRD OP-CODE UNIT # 
AAAAAA BBBBBB CCCCCC DDDDDD EEEEEE 


THE OCTAL NUMBER OF THE ERROR 
THE ADDRESS AT WHICH THE PROGRAM DETECTED THE FAILURE 
THE DEVICE ERROR WORD. A (1) IN ANY OF THE BITS 


IN THE WORD INDICATES THE ERROR DETECTED. EACH 
BIT IS DEFINED AS FOLLOWS: 


AAABAA= 
BBBBBB= 
cccccc= 


DDDDDD= 


EEEEEE= 


B1T15=1 
B1T14=1 
BIT13=1 
BIT12=1 
BIT11=1 
B1T10=1 
B1T09=1 
B1T08=1 
B1106=1 
B1T05=1 
B1T04=1 
B1T03=1 
B1T02=1 


BITOi=1 
B1T00=1 


(100000) 
(040000) 


(020000) 
4 


(010000) 
(004000) 
(002000) 
(001000) 
(000400) 
(900100) 
(000040) 
(000020) 
(000010) 
(000004) 


(000002) 
(000001) 
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TUS8 ERROR PRINTOUTS ARE DESCRIBED BELOW: 


WHEN WAITING FOR A FLAG BYTE, AN 
UNDEFINED CHARACTER WAS a tee 


0 
CONT FLAG BYTES WERE RECEIVED. 
WHEN READING A BLOCK, A CONT FLAG 
BYTE WAS RECEIVED. 
WHEN WRITING A BLOCK, A DATA FLAG 


EIVED. 
AN INIT FLAG BYTE WAS RECEIVED 
DURING THE OPERATION. 

WHEN INITING THE DEVICE, THE 2ND 
CHARACTER RECEIVED WAS NOT A CONT 
FLAG BYTE. 


NOT USED 

TUS8 HUNG (TIMEOUT ERROR) 

RECEIVER DONE FLAG NOT SET ON 
RECEIVER INTERRUPT. 

PROGRAM RECEIVE BUFFER OVERFLOWED. 
THE TUS8 TRANSMTTED TOO MANY CHARACTERS. 
TRANSMIT READY NOT SET ON TRANSMIT 
INTERRUPT. 

TRANSMIT INTERRUPTED WITH TRANSMIT 
INTERRUPT ENABLE CLEARED. 

NOT USED 

NOT USED 

NOT USED 


THE FUNCTION BEING EXECUTED WHEN ERROR WAS DETECTED. 
000004= THE PROGRAM WAS ote eee faery THE TU5S8 
000003= THE PROGRAM WAS WRITING A BLOCK 

000403= THE PROGRAM WAS yA " WRITE AND VERIFY 

ON A BLOCK. (TUS8 COMMAND) 

THE PROGRAM WAS READING A BLOCK. 

THE PROGRAM WAS READING A BLOCK WITH 
INCREASED THRESHOLD. (TUS8 COMMAND) 


THE TUS8 UNIT NUMBER UNDER TEST 
000000= TU58 DRIVE UNIT 0 
000001= TU58 DRIVE UNIT 1 


4s 


000002= 
000402= 
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tte A WRITE ERROR 
ERROR # ERR PC OP-CODE UNIT # BLOCK # PKT WRD SUCCESS BYT CNT SUMMARY 
AAAAAA BBBBBB CCCCCC DDDDDD EEEEEE FFFFFF GGGGGG HHHHHH IIIII1 
THE OCTAL NUMBER OF THE ERROR 

THE ADDRESS AT WHICH THE PROGRAM DETECTED A FAILURE. 


THE FUNCTION THAT WAS BEING EXECUTED WHEN THE 


AAAAAA= 
BBBBBB= 
cccccc= 


DODDDD= 


EEEEEE= 
FFFFFF= 


ERROR WAS DETECTE 
0000 


000403= 


000001= 


B1T15=1 
B1T14=1 
B1T13=1 
BIT12=1 
B1T11=1 
B1T10=1 
B1T09=1 


B1T08=1 


B1T05= 

B1T04=1 
B1T03=1 
B1T02=1 
B1T01=1 


B1T00=1 


-) 
O9-APR=79 16:30 PAGE 67<1 


\. 


THE PROGRAM WAS WRITING A BLOCK 
THE PROGRAM WAS DOING A WRITE VERIFY ON A BLOCK 


THE TUS8 UNIT NUMBER UNDER TES’ 
0000 TUS58 DRIVE UNIT 0 
TU58 DRIVE UNIT 1 


THE BLOCK NUMBER THAT WAS BEING WRITTEN 
ACCUMULATED FUNCTION AND END PACKET ERROR WORD. 


A (1) IN ANY OF THE BITS IN THE WORD INDICATES THE 
ERROR(S) DETECTED. EACH BIT 1S DEFINED AS FOLLOWS: 


(100000) 
(040000) 


(020000) A 


(010000) 
(004000) 
(002000) 
(001000) 


(000400) 


AN ERROR WAS DETECTED WHILE 
READING DATA PACKET 4 
AN ERROR WAS DETECTED WHILE 
READING DATA KET 3 

N ERROR WAS DETECTED WHILE 
READING DATA PACKET 2 

AN ERROR WAS DETECTED WHILE 
READING DATA PACKET 1 

NOT USED 
NOT USED 

LESS THAN 4 DATA a RECEIVED 
DURING READ OPERATION. 

LESS THAN 4 CONTINUE FLAG BYTES 
RECEIVED DURING WRITE OPERATION 


vo v 
pm» 
o 


END PACKET ERROR BITS 


(000200) 
(000100) 
(000040) 


(000020) 
(000010) 
(000004) 
(000002) 


(000001) 


PACKET CHECKSUM FAILURE 

PACKET BYTE COUNT INCORRECT 

PACKET OP-CODE BYTE NOT EQUAL 

END PACKET OP-CODE 

TUS8 REPORTING FAILURE DURING 
OPERATION. SEE GGG 

UNIT NUMBER NOT EQUAL UNIT UNDER TEST 
PACKET SEQUENCE NUMBER NOT 0 

PACKET DATA BYTE COUNT rte 

EQUAL TO A BLOCK (1000 0 

PACKET SUMMARY BITS INDICATES AN ERROR 


SEQ 0015 
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GGGGGG= 


HHHHHH= 


II1I11= 
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THE SUCCESS CODE BYTE AS READ FROM THE TUS8 IN 
THE END PACKET. 


Q00000= NORMAL SUCCESS (TU58 DETECTED NO ERRORS) 
QO0001= SUCCESS BUT WITH RETRIES (SOFT ERROR) 
000377= FAILED SELF-TEST 

000376= PARTIAL OPERATION (END OF MEDIUM) 
000370= BAD UNIT NUMBER 

000367 NO CARTRIDGE 

sets te WRITE PROTECTED 


DATA CHECK ERROR 
000340= SEEK ERROR 
000337= Sede STOPPED 


000320= 
000311= BAD RECORD NUMBER 


THE DATA BYTE COUNT WORD AS READ FROM THE TU58 
IN THE END PACKET. THIS WORD INDICATES THE 
NUMBER OF READ/WRITE DATA BYTES TRANSFERRED 
DURING THE OPERATION. IF ALL OF THE DATA WAS 
TRANSFERRED, THIS WORD SHOULD BE EQUAL TO 1000 
OCTAL (# OF BYTES IN A BLOCK). 


THE SUMMARY WORD AS READ FROM THE TUS8 IN THE 
END PACKET. 


TOXXXX= SPECIAL go ia (ERRORS) SEE GGGGGG. 


_O4XXXX= TRANSFER ERR 


O2XXXX= MOTION ERROR 
O1XXXX= LOGIC ERROR 
XXXX=RESERVED BITS 


TUS8 READ ERROR 
ERROR # ERR PC OP-CODE UNIT # BLUCK # PKT WRD DAT WRD SUCCESS BYT CNT SUMMARY 
AAAAAA BBBBBB CCCCCC DDDDDD EEEEEE FFFFFF GGGGGG HHHHHH IJIIII JJJJJJ 


AAAAAA= 
BBBBBB= 
cccccc= 


DDDDDD= 


EEEEEE= 
FRFFFR= 


THE OCTAL NUMBER OF THE ERROR. 
THE ADDRESS AT WHICH THE FAILURE WAS DETECTED 


THE FUNCTION BEING EXECUTED WHEN ERROR WAS DETECTED 

000002= THE PROGRAM WAS READING A BLOCK 

000402= THE PROGRAM WAS READING A BLOCK WITH 
INCREASED THRESHOLD. 


THE TUS8 UNIT NUMBER UNDER TEST 
000000= TU58 DRIVE UNIT 0 

000001= TUS8 DRIVE UNIT 1 

THE BLOCK NUMBER THAT WAS BEING READ 

ACCUMULATED pops ae END PACKET ERROR WORD. 

A (1) IN ANY OF THE BITS IN THE WORD INDICATES THE 
ERROR(S) DETECTED. EACH BIT IS DEFINED AS FOLLOWS: 


B1T15=1 (100000) AN ERROR WAS DETECTED WHILE 





SEQ 0014 
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B1T14=1 
B1T13=1 
BIT12=1 
BIT11=1 
B1T10= 
BIT09=1 


B1T08=1 


B1IT00=1 


(040000) 
(020000) 
(010000) 
(004000) 
(002000) 
(001000) 


(000400) 
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READING DATA PACKET 4 

AN ERROR WAS DETECTED WHILE 
READING DATA PACKET 3 

AN ERROR WAS Pacey 3 WHILE 


READING DATA PACKET 1 
NOT USED 

NOT USED 

LESS THAN 4 DATA PACKETS RECEIVED 
DURING READ OPERATION. 

LESS THAN 4 CONTINUE FLAG BYTES 
RECEIVED DURING WRITE OPERATION 


END PACKET ERROR BITS 


(000200) 
(000100) 
(000040) 


(000020) 
(000010) 
(000004) 
(000002) 


(000001) 


PACKET CHECKSUM FAILURE 

PACKET BYTE COUNT INCORRECT 

PACKET OP-CODE BYTE NOT EQUAL 

END PACKET OP-CODE 

— Sation tat te FAILURE DURING 
HHHHH, 


UNIT NUMBER NOT "EQUAL UNIT UNDER TEST 
PACKET SEQUENCE NUMBER NOT 0 

PACKET DATA BYTE COUNT NOT 

EQUAL TO A BLOCK (1000 OCTAL) 

4 SUMMARY BITS INDICATES AN 


THIS WORD CONTAINS THE ACCUMULATED ERROR BITS 
FOR EACH OF THE DATA PACKETS READ. A (1) IN ANY 
OF THE BITS INDICATES A FAILURE WAS DETECTED. 


DATA PACKET 


4 ERROR BITS 


B1114=1 (040000) DATA PACKET CHECKSUM FAILURE 


B1T13=1 


(020000) 


DATA CHECKSUM FAILURE (READ 
UM NOT EQUAL 


CHECKS WRITE) 
B1T12=1 (010000) DATA PACKET BYTE COUNT INCORRECT 


DATA PACKET 3 ERROR BITS 
B1T11=1 (004000) DATA PACKET CHECKSUM FAILURE 


B1T10=1 


(002000) 


DATA ety be age (READ 
T EQUAL 


CHECKSUM NO WRITE) 
B1TO9=1 (001000) DATA PACKET BYTE COUNT INCORRECT 
DATA ae 2 ERROR BITS 


B1T08=1 


(000400) 


DATA PACKET CHECKSUM FAILURE 


B1T07=1 (000200) DATA ite FAILURE ee 


M NOT EQUAL WRITE) 


CHECK 
B1T06=1 (000100) DATA PACKET BYTE COUNT INCORRECT 


DATA PACKET 1 ERROR BITS 
B1T05=1 (000040) DATA PACKET CHECKSUM FAILURE 
B1104=1 (000020) DATA ey FAILURE (READ 


NOT EQUAL WRITE) 


CHECKSUM 
B1T03=1 (000010) DATA PACKET BYTE COUNT INCORRECT 


SEQ 0015 
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HHHHHH= THE SUCCESS CODE BYTE AS READ FROM THE TUS8 IN 
THE END PACKET. 


Q00000= NORMAL SUCCESS (TU58 DETECTED NO ERRORS) 
QO0001= SUCCESS BUI WITH RETRIES (SOFT ERROR) 
000377= FAILED SELF-TEST 

000376= PARTIAL maak (END OF MEDIUM) 
000370= BAD UNIT NUMBER 

000367= NO CA RIRIDGE 

WRITE PROTECTED 

DATA CHECK ERROR 

SEEK ERROR 

0003 MOTOR STOPPED 

000320 


BAD OP-CODE 
000311= BAD RECORD NUMBER 


LI1111= THE DATA BYTE COUNT WORD AS READ FROM THE TU5S8 
IN THE END PACKET. THIS WORD INDICATES THE 
NUMBER OF DATA BYTES TRANSFERRED DURING THE 
OPERATION. IF ALL THE DATA PACKETS WERE READ, THIS 
NUMBER SHOULD EQUAL 1000 OCTAL (# OF BYTES IN A BLOCK) 


JJIJIJI= THE SUMMARY WORD AS READ FROM THE TUS8 IN THE 
END PACKET. 


TOXXXX= SPECIAL a (ERRORS) SEE HHHHHH. 
O4XXXX= TRANSFER ERR 
O2XXXX= MOTION ERROR 
OIXXXX= LOGIC ERROR 
XXXX=RESERVED BITS 


BITS 15,13, AND 10 OF THE SWITCH REGISTER (SWREG) CONTROL THE 
SEQUENCE OF EVENTS AFTER AN ERROR IS DETECTED. 


[=] 

[=] 

So 

Ww 

we 
nNonwu 
hun wu 


BIT 15 SET: CAUSES THE PROGRAM TO HALT IN THE * - aes ROUTINE. 
IF THE PROGRAM IS CONTINUED BY TYPING ° 
THE PROGRAM WILL PROCEED. 

BIT 13 SET: DISABLES THE PRINTING OF THE ERROR MESSAGE. 

BIT 10 SET: CAUSES THE BELL TO RING ON ERROR. 

THE ERROR ROUTINE SUPPORTS THE CONTROL G <*G> FUNCTION. 

REFER TO SECTION 2.3 FOR DETAILS. 


NOTE: SINCE THERE ARE NO SPECIFIC TEST NUMBERS, APT WILL 
REPORT ALL ERRORS AS TEST 0 ERRORS. 


E 
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3.2 ERROR HALTS. 


THE ONLY HALTS IN THE EXERCISER ARE AFTER PRINTING THE a 
WARNING MESSAGE AND IN THE ERROR ROUTINE. THE LATTER 

1S EXECUTED ONLY IF BIT 15 OF THE SWITCH REGISTER (SUREG) IS SET 
WHEN AN ERROR OCCURS. 


4.0 PROGRESS AND PERFORMANCE REPORTS 


NOTE: THE SCROLLING REGION FOR PROGRESS AND ERROR REPORTS WILL 
BE LINES 2-13. LINES 14-24 WILL BE A SEPERATE SCROLLING 
REGION FOR VT100 DISPLAY TESTS. LINE 1 WILL ALWAYS DISPLAY 
\ THE PROGRAM TITLE, PASS COUNT, AND ERROR COUNT. 


THE FOLLOWING REPORTS ARE ENABLED BY BIT 12 IN THE SWITCH REGISTER 
(SWREG LOC 176) AND WILL APPEAR FOLLOWING LOADING AND STARTING AS DESCRIBED 
IN SECTION 2.1 (ASSUMING ALL DEVICES ARE TO BE TESTED AND NO ERRORS): 


MEMORY TESTS DONE ALL MEMORY FROM LOCATION 0 TO THE BEGINNING OF 
THE XXDP MONITOR/ABSOLUTE LOADER HAS BEEN TESTED. 
VT100 RUNNING ESCAPE SEQUENCES FOR TERMINAL IDENTIFY, DIAGNOSTIC 


STATUS, AND CURSOR REPORTS HAVE BEEN SENT AND RECEIVED 
BACK FROM THE VT100. THE VT100 DISPLAY TESTS (VISUAL VERIFY 
ONLY) ARE LEFT RUNNING IN INTERRUPT MODE AT 4800 BAUD. 


CLOCK RUNNING 100 INTERRUPTS HAVE BEEN DETECTED BEFORE 
EXERCISING THE NEXT DEVICE. 
THE CLOCK CONTINUES RUNNING IN INTERRUPT MODE. 


PRINTER RUNNING (DONE) 5 LINES HAVE BEEN PRINTED WITH ERROR BIT CHECKING ONLY. 
THE PRINTER RUNS CONTINUOUSLY IN INTERRUPT MODE AT 1200 BAUD. 
ITS ACTUAL PERFORMANCE IS A VISUAL CHECK JF PRINTER CONNECTED. 
IF THE PRINTER WAS RUNNING IN EXTERNAL LOOPBACK MODE, 
THE PROGRAM WILL REPORT ‘PRINTER DONE'’ AN 
NO FURTHER TESTING WILL BE PERFORMED THIS PASS. 


SYNC COMM DONE CHARACTERS 0 THRU 377 HAVE BEEN TRANSMITTED AND RECEIVED WITH ODD PARITY ENABLED. 
INTERRUPTS ARE THEN DISABLED AND THE SYNC COMM IS NO LONGER EXERCISED. 
THIS IS SO THAT THE ASYNC COMM CAN BE EXERCISED 
FOR THE DURATION OF THE PASS. 


ASYNC COMM RUNNING CHARS 0 THRU 377 HAVE BEEN TRANSMITTED AND RECEIVED BEFORE 
EXERCISING THE NEXT DEVICE. 
1T CONTINUES RUNNING IN INTERRUPT MODE AT 9600 BAUD 
WITH ODD PARITY ENABLED AND REPEATS THE 0 THRU 377 CYCLE 


CLUSTER TERMINAL #1 RUNNING 
CHARACTERS 0 THRU 377 HAVE BEEN TRANSMITTED 
AND RECEIVED BEFORE EXERCISING THE NEXT DEVICE. 
THE TERMINAL KEEPS RUNNING CONTINUOUSLY AT 300 BAUD 
IN INTERRUPT MODE AND REPEATS THE 0 THRU 577 CYCLE 


CVKDBAO PDT- 
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CLUSTER TERMINAL #2 RUNNING 
SAME AS #1 


CLUSTER TERMINAL #3 RUNNING 
SAME AS #1 


TUS8 RUNNING THIS MESSAGE INDICATES THAT THE TU58 
HAS RESPONDED TO THE INITIALIZATION 
SEQUENCE. 


TUS8 TAPE UNIT 0 DONE THIS MESSAGE INDICATES THAT TEN 
BLOCKS HAVE BEEN WRITTEN AND READ ON 
THIS UNIT. NO FURTHER TESTING IS DONE 
ON THIS UNIT SO THAT THE NEXT UNIT 
CAN BE TESTED IF AVAILABLE. 


TUS8 TAPE UNIT 1 DONE THIS MESSAGE INDICATES THAT TEN 
BLOCKS HAVE BEEN WRITTEN AND READ ON 
THIS UNIT. THIS IS THE LAST DEVICE 
UNDER TEST FOR THIS PASS, THEREFORE, 
THE TESTING IS STOPPED FOR THIS PASS. 


END OF PASS #) TOTAL ERRORS THIS PASS: 0 
SOFT ERRORS THIS PASS: 0 (...AND ENTIRE PROCESS REPEATS) 


DEVICE REGISTERS. 


PARAMETER REGISTER: 


oe A 10 9 8 7 6 5 4 3 2 1 0 
CHCA TREK THAT HER HKK Kee eeeAAA He HK Kee eee Kee eee Aree reer eeKereKereeeeeKeeeeeese 
: : PORT : BAUD ! USR! USR!PAR !PAR ! CHAR 'MAIN! ! 177420 (WP ONLY) 
; : SELECT ! RATE ! LT2! LTVTYP !EN ! LENGTH ! : : 
eeeeerereererererrerererereeeeteeeeeeeeeeeetereeeeeerteeereeeereeeeeeeeeeereeeeee 
' ' ' ' \ 


LINE CLOCK: VECTOR: 100 


nw a lhUmLe Oe hU 9 8 7 6 5 4 3 2 1 0 


SSHRC eeeeeeeeeeaRRTKAATEeEKeETEEETeETAeeeTAReReReeeeekekeeeekeekaneeeees 
! ; ; ; ‘CLK ! ! ; ' 177546 
‘ ‘ ‘le ! 
SCC eeeReaatkhaReenecenes 

‘ f] 1 1 ' 


SEQ 0018 
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CONSOLE : ADDR: Hts + aE ABs VECTOR: 60/64 

CLUSTER #1: 176500-176506 300/304 
#2: 176510-176516 310/314 
#3: 176520-176526 320/324 


we we a uw 9 8 7 6 5 4 3 2 1 0 


AKASAKA AAEHTEAAAEEHH HAAR EEHEHTEEAETAATETEETEEKETEeeeKAReeeeAKeeKeeeee 


ay Mee let es as ee Sk ee eT ee ee ee Oe ee ee 
ee. Tok BE Ee i, ee PE eee Se Sod eek we 
Ceeeeeerrrcrerecrererenrreneeenerenresereeerreerreeeerecerreeeeeeoeeeeareenreeete 
one Ce Ge ee Ss Ss Sas Pa ee KB DATA BUFFER 
Pe Bet ae id a ee 
ceeeeereeecererererrreereeeerrreeneerreeerereeeerereerereeereeeereeeeeeeeeenneete 
ait te Ok ee ae eS ee ee ee ee ee a ee 
SRE hah eee Si, Bd ee i OE Se Ae es es ek 
Ceeeeeeereeerererrerererenetreereeneereretieeeererereereneerereeeeneneaererereens 
sic toe tee SET RS SS ee ee PRINTER DATA BUFFER 
ee Ge Bee kok whe BEE coe (WRITE ONLY) 


Ceeeererererreererereetrenereeeteeenrerererererreeerereeereeereeeenteeereereferts 
' ' ' ' ' 


PRINTER: VECTOR: 200 


” ww we we We ee 9 8 7 6 5 4 3 2 1 0 


(RARRBRBSASALALALALALSASLEALLAESLASLAESSLESESES ERASER ESE RE SEER REAR REAR REESE EEE SERRE ERS SY 


dei walt GO ee ee ee ee ee ee ee ee ee ee ee 
Alek - & Set! Rhea Su ee eek "eS Ee ek 2 OE 
Ceereceenrerrerreennrencenrereeneeereereceereoereerenererteeseeeeereeeseereereets 
on, Oe RS SS Pe er Port eae ee PRINTER DATA BUFFER 
au, SORA Sat peck RE ELS Be (WRITE ONLY) 
\AARARARBRSASAARALASASSRSSESELESESESERSARRER EAE R REE REE EARASESA SERRE EERE AREER SEER EEE 
' ' ' ' ' 
ASYNC MODEM: VECTOR: 
ee ee SS 8 Ee Se ee ae 
IARRRBSARBSSASALZASESLESESASASESAEEEREE EE EESE RARER RASASARE AREA R RRR R RARER REESE ER RRR ESE OS 
RCSR! DSI!RING! CTS! CAR! | SEC!DSET! = !RCVRIRCVRIDSET! =! SEC! RTS! DIR! 
(ft 8 DET! = E REC! RDV! = SDONE'IE«'1E =! )=©=otMMIT! 
POT ETITTITILILTT LTTE TELL T LIE E TTT TILL LTTE TITITTLILLIiTTiiiitiiiiiiitiiiiii 
Sout: camion F8 ARs fl ltl tll RECEIVER DATA BUFFER 
‘ERR ‘ERR ‘ERR! =| } | 3 
Ceeeeeerercererereerereeereeteeeeeneereteerertetereererrereerereereneereereeriets 
eel ee Ce ee ae es oe pee ees ae ee ey ae 
Wee AA BE Mie, Sih Snel ee RGR) St OSE be, SO See Ge 
SHH TAAHTEAHAAAAEHEEHAEAAAATEEEAEHHAHAAEEEAAEKAEKAAEEReeeeeteeeeeneteeeeeeenenes 
ees ed en es es We TRANSMITTER DATA BUFFER 
POE ade Us te een Fe Bh (WRITE ONLY) 


seeccuccccoccccocuceceaconcccacacoucucaceceucaccccanagatceccesentenenecearerecese 
‘ ‘ ' ' 


177514 


177516 


330/334 


176610 


176612 


176614 


176616 


SEQ 0019 
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SYNC MODEM: VECTOR: 340/344 
eB Be 9 8 7 6 5 4 3 2 1 0 


eereterrererrrrrerererererereeeeeeeeererererererrereerererereeereeeeeereeeeeneee 
RCSR! DSC. RING: ! CTS! CAR!REC ! SEC!DSET!STRP!RCVR!IRCVRIDSET!SRCH! SEC: RTS: DIR. ! 176620 
: : | DETIACT | REC! RDY!SYNC'DONE‘IE ‘IE SYNC! XMIT : 
OE ERIE SO Bh tw I I oe tee Re AE. 
RBUF - ERR!OR ! 'PAR ! : : : } RECEIVER DATA BUFFER ! 176622 (RD ONLY) 
‘ERR ! ‘ERR ! : . : : : 
teeereeereeerrerereeeereneeneeeeeeereeeererererertreecererteeeeneneeeeeneeeeete 
PCSR! ‘SYNC! : ! WORD ‘!PAR !EVEN! SYNC REG ! 176622 (WR ONLY) 
: 'CHAR! ; ' LENGTH ‘JE !PAR ! : 
eee PTT i is iit i iirc iii iii itis iii titi i iiiiitiiiiititiiiiiity 
XCSR!DNA ! : ‘MA IMA! : 'MAST!XMITIXMIT!IDNA !SEND!H/F ! ' : ! 176624 
: ; : 'MODE!CLK ! : SRST $ROV S1E «fe !puP ! : ? : 
eeereereeeererererererereeeeeeeeeeeeeeeereeeeeerereeereteresereereeeenereeeeeeere 
XBUF : : : : ’ : : : TRANSMITTER DATA BUFFER ! 176626 
: : : : : : : : (WRITE ONLY) ; 
seereeeretereereeeereerereneerenereeeeteerereereretereereeeereeeeeeeeeeeeeeeeeee 
‘ ' ' ' ' 


TuS8: VECTOR: 260/264 
7 wm Ce we HW 9 8 7 6 5 4 3 2 1 0 


LARBRRSASASZASESLASELESLESLALSESESASESASE ER ERA EERE R SAREE RRR RRR REAR EERE ERE 
en: On ee ee ee ee ee ee ee ae ee eee 
Seba, bate eed Bork. FA Lee Se TT ee ee Seek ee Be oe ee 
Feeeeeeerenererererreeterrenenreeeneenereeereeneterreeerereneererereeeeeeereteete 
ne ee EE SS aes es as woe Bis” COMMON DATA BUFFER ! 177172 
~~" ek Oe Beek ie ee tee lek 
eeeerereerereerererereerereererareeeteerereerereetereeeeetereseeeereneereerereete 
as Ca Cee en PO ee Pee ee a ee ee ee ee ee 
Rak AG BA BE be te Se We ak coh igs be 
Ceeeereerrerrerrereereeenererrerenerereeererreeeerenereereeererteerenreneenetette 


' ' ' ' ' 
. . . . . 








CVKDBAO PDT-11 110/150 SYS EX. 
09-APR-79 08:20 


CVKOBA.P11 


6.0 


7.0 


DEVICE CONNECTOR LAYOUT 


© * 
PRINTER PORT 

© « 

eeerererreerererrereererere 

eererereereerereeterereeees 

‘ ‘ 
COMM PORT 

* « 


(RR RRBRASASLAASESLASAAASASL SSS SI 


SUMMARY OF TESTS (SEE PROGRAM LISTING FOR DETAILS ON SPECIFIC TESTS) 


PHASE 1 


MEMORY TESTS A. LOC 0 THRU END OF PROGRAM IS TESTED FOR TIMEOUT. 
B. END OF PROGRAM TO BOTTOM OF XXDP_MONITOR/ABSOLUTE LOADER 
1S TESTED WITH A 125252 AND 052525 OCTAL PATTERN. 
C. IF 28K PRESENT, MEMORY FROM 28K TO 30K IS SIMILARLY TESTED. 


PHASE 2 


ALL AVAILABLE PERIPHERALS ARE EXERCISED IN INTERRUPT MODE UNTIL END OF PASS. 


SEE SECTION 2.4 FOR DETAILS OF SETTING UP THE DEVICE MAP (SDEVM) FOR DEVICE TO BE TESTED. 
SEE SECTION 4.0 FOR DETAILS ON PROGRESS REPORTS. THE PROGRAM FLOW FOR PHASE 2 IS AS FOLLOWS: 


START vT100 
START LINE CLOCK 
START PRINTER 


START SYNC COMM PORT 
START ASYNC COMM PORT 
START CLUSTER TERMINAL #1 
START CLUSTER TERMINAL #2 


MACY11 30A(1052) 
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eteeeerrrererererererereres 
e ® 


CLUSTER TERMINAL #3 
PORT 


® t 
gereerrererrrrrererrrerererte 


CLUSTER TERMINAL #2 
PORT 


* * 
eteeerrrererreererrrereeett 
+ * 
CLUSTER TERMINAL #1 
PORT 
® ‘ 


ferterererrrrrrrrrrrerrereeere 


SEQ 0021 


VT100 LINK VERIFIED USING ESCAPE SEQUENCES. DISPLAY TESTS LEFT RUNNING, 


INTERRUPTS ARE DETECTED 
CONTINUOUS i | Ra PRINTED. 


CHARS 27 T 


WRU 
CHARS O THRU 377 TESTED CONT INUOU sty 
ry 0 THRU 377 ARE XMITTED, REC'D AND TESTED. 


START CLUSTER TERMINAL #3 SAME 


1P 


ASS ONLY 
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PHASE 3 


WHILE THE ABOVE DEVICES ARE INTERRUPTING RANDOMLY, TUS8 SUBSYSTEM TESTS BEGIN: 


THE FROGRAM INITIALIZES THE TUS8 BY SENDING THE TUS8 ‘INIT’ 
SEQUENCE AND WAITING FOR THE APPROPRIATE RESPONSE FROM THE TUS8. 


FOR THE PURPOSE OF THIS EXERCISER, THE TAPE IS DIVIDED INTO TwO 

TAPE RANGES; THE FIRST HALF AND THE SECOND HALF OF TAPE. THE 

PROGRAM GENERATES A RANDOM NUMBER TO DETERMINE WHICH HALF OF 

THE TAPE IS TO BE EXERCISED DURING THIS PASS OF THE PROGRAM. THIS 
TAPE RANGE WILL BE USED IN TESTING BOTH TUS8 DRIVES FOR THIS PASS 

OF THE a ae ALL BLOCK NUMBERS TO BE EXERCISED ARE GENERATED 
RANDOMLY AND THEY ARE MASKED TO THE TAPE RANGE SELECTED. IF BITS IN 

SDEVM IS SET, THE BLOCK NUMBERS GENERATED WILL BE SEQUENTIAL INSTEAD 

OF RANDOM, AND THE TAPE WILL NOT BE DIVIDED INTO TAPE RANGES. ALL 
TRANSFERS TO THE TUS8 ARE ONE BLOCK TRANSFERS (1000 OCTAL BYTES). 

ALL DATA TO BE WRITTEN IN A BLOCK WILL BE GENERATED RANDOMLY. 

THE WRITE FUNCTION WILL BE a te SELECTED FOR yoy AS 


SELECTED FOR EACH BLOCK AS READ OR READ WITH INCREASED THRESHOLD. 

IF BIT 5 IN SOEVM IS SET, THE WRITE AND READ FUNCTION WILL STRICTLY 

BE A WRITE AND READ FUNCTION AND NOT A WRITE VERIFY OR READ WITH INCREASED 
THRESHOLD. FOR EACH BLOCK TO BE EXERCISED, THE PROGRAM WILL WRITE THE BLOCK 
AND THEN READ AND CHECK THE BLOCK TO BE CORRECT. THE PROGRAM 

EXERCISES TEN RANDOM BLOCKS (SEQUENTIAL IF SDEVM BITS = 1) PER TUS8 

TAPE DRIVE BEFORE EXERCISING THE NEXT TUS8 TAPE DRIVE THE SAME WAY. 


SEQ 0022 
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el el el el ee © 
tt at ss ss 
~wwwwwwww@® 


001100 


060011 


000007 
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TITLE CVKDBAO POT-11 110/130 SYS EX. 
s*COPYRIGHT (C) 1979 

:*DIGITAL EQUIPMENT CORP. 

:*MAYNARD, MASS. 01754 


;* 

s SPROGRAN BY BRUCE HANSEN 

eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s #PACEAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


-SBTTL OPERATIONAL SWITCH SETTINGS 


: SWITCH USE 

: 15 HALT ON ERROR 

: 14 CHANGE  $D SDEVR VIA KEYBOARD (PROGRAM START 
: 13 INHIBIT LE RROR TYPEOUTS 

: 12 ENABLE PERFORMANCE REPORTS 

: 10 BELL AND REVERSE VIDEO TYPEOUT ON ERROR 
: 09 CONSOLE TERMINAL IS A VT132. 


~SBTTL BASIC DEFINITIONS 


:*INITIAL ADDRESS OF THE STACK POINTER *#* 1100 #e* 
STACK= 110 


-EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROR CALL 
-EQUIV 10T,SCOPE >:BASIC DEFINITION OF SCOPE CALL 
;*MISCELLANEOUS DEFINITIONS 

HT= 11 ::CODE FOR HORIZONTAL TAB 

LF= 12 >: CODE FOR LINE FEED 

CR= 15 >: CODE FOR CARRIAGE RETURN 

CRLF= 200 >:CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 * PROCESSOR STATUS WORD 

-EQUIV PS,PSW 

STKLMT= 177774 ::STACK LIMIT REGISTER 

PJRQ= 177772 ::PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 SHARDWARE SWITCH REGISTER 

DDISP= 177570 S HARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER DEF INIT 1ONS 

R1= 21 SOE NERAL REGISTER 

R2= %2 > GENERAL REGISTER 

R3= 13 > GENERAL REGISTER 

RG= 14 > GENERAL REGISTER 

RS= 15 GENERAL REGISTER 

R6= 16 > :GENERAL REGISTER 

R7= 4? SIGENERAL REGISTER 

SP= 16 ::STACK POINTER 

PC= 17 ::PROGRAM COUNTER 


Pe 


SEQ 0025 
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000000 PRO 0 ; PRIORITY LEVEL 0 

000040 PRI= 40 ; PRIORITY LEVEL 1 

000100 PR2= 100 ssPRIORITY LEVEL 2 

000140 PR3= 140 :sPRIORITY LEVEL 3 

000269 PR4= 200 : PRIORITY LEVEL 4 

000240 PR5= 240 :sPRIORITY LEVEL 5 

000300 PR6= 300 :PRIORITY LEVEL 6 

000340 PR7= 340 ;sPRIORITY LEVEL 7 
3*°"SWITCH REGISTER’ SWITCH DEFINITIONS 

100000 Sw15= 100000 

040000 SW14= 40000 

020000 Swi3= 20000 

010000 Swi2= 10000 

004000 Swil= 4000 

002000 swid= 2000 

001000 SwO9= 1000 

000400 swO8= 400 

000200 SwO7= 200 

000100 Sw06= 100 

000040 SwOS= 40 

000020 SwO04= 20 

000010 SwO3= 10 

000004 SwO2= 4 

000002 SwOl= 2 

000001 swoo= 1 


EEE ER EN ER ER EN EN EN ON ON EN EM ON ON ON EN ON ON ON ON ON EN EN EN EE EE EN FER FR FR FR FR PR PR PR FR FP BPR PR PR PAP PRP PPP es 
ern ae ss ss es 4 ee ee ee et et ee ee ee ee ee ee ee ee ce ee ee ed ee ee ae oe ed 
et eee eet re ett et i hh hh hh hh he 


s*DATA BIT DEFINITIONS (B1T00 TO B1T15) 

100000 B1T15= 10000 
040000 B1T14= 40000 
020000 B1T13= 20000 
010000 B1T12= 10000 
004000 BITi1= 4000 
002000 B1710= 2000 
001000 B1T09= 1000 
000400 B1T08= 400 
000200 B1T07= 200 
000100 B1T06= 100 
000040 B1T05= 40 
000020 BIT04= 20 
000010 B1T03= 10 
000004 BLT02= 4 
000002 BITOl= 2 
000001 B1T00= 1 
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Cl il tl el dt ee ed ee ed a ed ed ee ee ee ee a ee ee 
I ee ec et ed 
ed ee a a eh a hn 


000004 


000240 


000033 
000021 
000023 


000200 
000100 


000350 
000334 


000340 
000344 


000260 
000264 


000300 


000524 


A 2 
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BASIC D ONS 


EFINITI 
-EQUIV B1T09,B119 
-EQUIV B1108,B118 
-EQUIV B1T07,B117 
-EQUIV B1T06,B116 
-EQUIV B1T05,B115 
-EQUIV B1104,B114 
-EQUIV B1103,B113 

B1T02,B112 

B1101,B1T1 


-EQUIV 81100,B110 
; *BASIC A teil TRAP VECTOR ADDRESSES 


ERRVEC= 4 TIME OUT AND OTHER ERRORS 

RESVEC= 10 : RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 “T' BIT 

TRIVEC= 14 >; TRACE TRAP 

BPTVEC= 14 > sBREAKPOINT TRAP (BPT) 

1OTVEC= 20 ¢ 3 INPUT/OUTPUT TRAP (10T) **SCOPE*® 
PWRVEC= 24 WER FAIL 

EMTVEC= 30 ;;EMULATOR TRAP (EMT) **ERROR#® 
TRAPVEC=34 33""TRAP’’ TRAP 

TKVEC= 60 ::TTY KEYBOARD VECTOR 

TPVEC= 64 7: TTY PRINTER VECTOR 

PIRQVEC=240 ;;PROGRAM INTERRUPT REQUEST VECTOR 


Sp eeeeearerereereeeeeeeeeeeeeeeeeeeeeeeeReeeeKeKeeeeeeeAKeteeeeee 


; SPECIAL ASCII CHARACTERS 


set eeeearereeetererteeeereeteeteeeeeeeKeeeeeeKeeeteeeeeeeAKeeeeee 


ESC= 33 s ESCAPE 

XON= 21 

XOFF= 23 

ps, eeeeaeerereerareeeeeereeeretereeereeteeeeeneeeeteteneeeeeeeeeee 
:* PDT-11 110/130 DEVICE VECTORS 

pp eeeerereeeeeeeeeeeeeeeeeteteeeeteteeeeKeeKeeeeeeKeeeeeeeeeeeeee 
PRVEC= 200 sPRINTER 

CLKVEC= 100 sLINE CLOCK 

AMRVEC= 330 sASYNC MODEM RECVR 

AMXVEC= 334 s XMITR 

SMRVEC= 340 ;SYNC MODEM RECVR 

SMXVEC= 344 ; XMITR 

TURVEC= 260 :TUS8 RECVR 

TUTVEC= 264 ;TUS8 XMITR 

TKIVEC= 300 sCLUSTER TERM #1 VECTORS 

TPIVEC= 304 

TK2VEC= 310 : #2 

TP2VEC= 314 

TK3VEC= 320 : a3 

TP3VEC= 324 


SEQ 0025 


N 2 
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CVKDBA.P11 
6687 


09-APR-79 08:20 


177420 
177546 


177514 
177516 


177170 
177172 
177174 


176500 


176506 


176510 
176512 
176514 
176516 


176520 
176522 
176524 
176526 


BASIC DEFINITIONS 


se eereeerereererereeererrtererereeeeeteaenereeeneneeeeeeeeeeereee 


PDT-11 110/150 DEVICE REGISTERS 


ps, eeeteerererrereerereeeeetereeeeereeeeeereateeeReeKeteeeeeeKeeees 


PARAM= 
CLK= 


PRS= 
PRB= 


AMRC= 
AMRB= 
AMX<= 
AMXB= 


SMRC= 
SMRB= 
SMPAR= 
SMXC= 
SAXB= 


TURCSR= 
TURXDB= 
TUXCSR= 


TK1S= 
TK 1B= 
TP1S= 
TP1B= 


TK2S= 
TK 2B= 
TP2S= 
TP2B= 


TK3S= 
TK3B= 
TP3S= 
TP3B= 


177420 
177546 


177514 
177516 


176610 
176612 
176614 
176616 


176620 
176622 
176622 
176624 
176626 


;PARAMETER REGISTER (WRITE ONLY) 
sLINE CLOCK 
PRINTER STATUS REG 
; BUFFER 


sASYNC MODEM RECVR STATUS REG 
; BUFFER 


: XMITR STATUS REG 
BUFFER 


(WRITE ONLY) 


(WRITE ONLY) 
SYNC MODEM RECVR STATUS REG 

; BUFFER (READ ONLY) 
; PARAMETER REG (WRITE ONLY) 
; XMITR STATUS REG 

; BUFFER (WRITE ONLY) 
;TU58 RECEIVER CSR 

: COMMON DATA BUFFER 

; TRANSMITTER CSR 


CLUSTER TERMINAL #1 


SEQ 0026 


3 
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CVKDBA.P11 O09-APR-79 08:20 BASIC DEFINITIONS SEQ 0027 


steteerrerrerereerrererereerererereeeeeeekeneeeeeeeeeeteteeere 


i PARAMETER REGISTER EQUATES WRITE ONLY 


-eentenrtrereetererreteererereeererereneeeeeeeeteneeneeeneeeeteneee 


:BIT 14-12 PORT SELECT 


010000 CONSOL= 10000 ;SELECT CONSOLE TERMINAL 
CT} 0 CLUSTER TERMINAL a 


C13= : a3 
PRT= 20 ; PRINTER PORT 

AMOD= ; ASYNC COMM PORT 
040000 ULITE= 40000 : USER LIGHTS 


:B1T 11-8 BAUD RATE (DELTA = 400) 
000000 : 0 :50 BAUD 


(CLUSTER DEFAULT) 


; 7200 
B9600= 7000 9600 (PRINTER AND ASYNC DEFAULT) 
007400 B19200= 7400 ; 19200 


;1F 110 BAUD SELECTED, 2 STOP BITS ARE ASSUMED. 
BITS 4-5 PARITY CONTROL 


000060 EPAR= 60 SEVEN PARITY ENABLE 
000020 OPAR= 20 [ODD PARITY ENABLE (DEFAULT) 


;BITS 3-2 CHARACTER LENGTH (DELTA = 4) 
000000 CHARS= 0 :5 BITS/CHAR 
000004 CHARG= 4 ‘6 
000010 CHAR7= 10 :7 
000014 CHARB= 14 :8 (PRINTER, TERMINAL MODEM DEFAULT) 
:B1T 1 MAINTENANCE BIT 


000002 MAINT= BIT1 sENABLE MAINT MODE 
[PRINTER AND TUS8 DO NOT HAVE MAINT MODE 
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CVKDBA.P11 09-APR-79 08:20 BASIC DEFINITIONS SEQ 0028 
6782 sy eeeeeeeeeeererereeeerereeeeeeereeeeeeKeeeeeeeeeteeeeeeeeeeeeAee 
6783 ;* ASYNC MODEM BIT DEFINITIONS 
ores sy eteeeeeeerereererererererererereteeeteneeeeeReeeeeeeeeeeeeeeeee 
6 
6786 3RCSR 
6787 : 
6788 100069 DSI= BIT15 sDATA SET INTERRUPT 
6789 040000 RING= BIT14 RIN 
6790 020000 CTS= BIT13 ;CLEAR TO SEND 
6791 010000 CDOET= B1T12 sCARRIER DETECTED 
6792 02000 SREC= B1T10 sSECONDARY RECD/SUPERVISORY RECD 
6793 001000 DSRDY= BI1T9 sDATA SET RDY 
6794 00200 DONE= BIT? ;RECVR DONE 
6795 00100 IE= BIT6 sRECVR IE 
6796 000040 DSIE= BITS sDATA E 
6797 000010 SXMIT= BIT3 sSECONDARY XMIT/SUPERV XMIT 
6798 000004 RTS= BIT2 sREQ TO SEND 
6799 000002 DIR= BITl ;DATA TERMINAL RDY 
6800 
6801 ;RBUF 
6802 H 
6803 100000 ERR= BIT15 ERROR 
040000 ORERR= B1T14 sOVERRUN ERROR 
6805 020000 FRERR= B1T13 s FRAMING ERROR 
ree 010000 PARERR= B1T12 ;PARITY ERROR 
6808 XCSR 
6809 : 
6810 000200 RDY= BIT7 sXMIT RDY 
6811 000100 IE= BIT6 sXMIT IE 
6812 000001 BREAK= BI1T0 BREAK 





0 
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CVKDBA.P11 09-APR-79 08: 20° BASIC DEFINITIONS SEQ 0029 
6814 sp eteerereeereererereererereereerertereeeerereneeeeeteeeneeeereeee 
6815 :* SYNC MODEM BIT DEFINITIONS 
ret 3 3 -@ateneerterererererererererererrrerereraraeteeaeeeaneaeenaeeneeeeere 
6818 sRCSR 
6819 : 

6820 100069 DSC= BIT15 ;DATA SET CHANGE 
6821 040000 RING= BIT14 RIN 
020000 CTS= BIT13 [CLEAR TO SEND 
6823 010000 CDET= B1T12 2 myst es DETECTED 
6824 004000 RACT= BI1T11 SRECVR ACTIVE 
6825 002000 SREC= 81710 sSECONDARY RECD/SUPERVISORY RECD 
6 001000 DSRDY= BI1T9 DATA SET RDY 
6827 000400 STSYN= B1T18 sSTRIP SYNC 
6828 000200 DONE= B1T7 RECVR DONE 
6829 000100 1E= BIT6 sRECVR IE 
000040 DSIE= BITS sDATA SET IE 
6831 000020 SRSYN= BIT4 sSEARCH SYNC 
6832 000010 SXMIT= BIT3 ;SECONDARY XMIT/SUPERV XMIT 
6833 000004 RTS= BIT2 ;REQ TO SEND 
rete 000002 DIR= BIT) sDATA TERMINAL RDY 
6836 ;RBUF 
6837 : 
6838 100000 ERR= BIT15 sERROR 
6839 040000 ORERR= BIT14 sOVERRUN ERROR 
= 010000 PARERR= BIT12 sPARITY ERROR 
oy | ;PARCSR PARAMETER CONT REG 
6844 000000 SYNC2= 0 72 SYNC CHARS (DEFAULT) 
ze 040000 SYNC1= BIT14 31 
6847 7B1TS 10-11 WORD LENGTH 
6848 : 
6849 000000 CHR5= 0 75 BITS/CHAR 
6850 002000 CHR6= 2000 36 
6851 004000 CHR7= 4000 37 
re 4 006000 CHRB= 6000 78 (DEFAULT) 
rete: 3BITS 8-9 PARITY CONTROL 
6856 001400 ENVPAR= 1400 sENABLE EVEN PARITY 
ye oH 001000 ODDPAR= 1000 sENABLE ODD PARITY (DEFAULT) 
6859 3XCSR 
6860 ; 
6861 100000 DNA= B1T15 sDATA NOT AVAIL 
6862 010000 MM= BIT12 sMAINT MODE 
6863 004000 MCLK= BIT11 ;MAINT CLOCK 
6864 000400 MR= B1T8 MASTER RESET 
6865 000200 RDY= B117 :XMIT RDY 
6866 000100 lE= BIT6 sXMIT IE 
6867 000040 DNAIE= B1T5 ;DATA NOT AVAIL IE 
6868 000020 SEND= BIT4 3% 
6869 000010 HFDUP= BI1T3 3 1=HALF DUPLEX, O=FULL DUPLEX (DEFAULT = 0 FOR TESTS) 





CVKDBAO PDT-11 ah Ss 


CVKDBA.P11 


on RR RR Re 
— 
@Gwwwwwwvm™ 


000174 
000176 


000174 
000176 


09-APR-79 


000200 
000100 


000200 
000100 
000001 


001000 


000000 
000001 


000100 


000000 


000174 
000000 
000000 


000174 
000000 
000000 


000200 
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BASIC DEFINITIONS 


se#errererererererteeerererekerererenekeeeeeneeeeereteeeeeeeeeeees 


i TUS8 BIT DEFINITIONS 


sw#raereenrerererereerterereeeerererereeekekeeeeteeteeereeetetereeete 


SRCSR 
RDONE= B1T17 :RECVR DONE 

1€= BIT6 :RECVR IE 

sTXCS 

RDY= — BIT? SXMIT RDY 

1E= B1T6 “XMIT IE 

BREAK= BITO :XMIT BREAK 

SLEVEL 1 CODES (FLAG BYTE) 

TCONT= 20 s CONTINUE 

TINIT= 4 ‘INIT PROTOCOL 

TDATA= 1 [DATA PACKET 

TCMDPK= 2 :COMMAND PACKET 

TMSG= 12 :COMMAND PACKET SIZE 
TMSIZ= 128. [DATA PACKET SIZE 

TRIRY= 10 :RETRY COUNTER FOR ERRORS 
TwC= = $12. =READ/WRITE WORD COUNT 
SLEVEL 2 CODES (OPCODE) 

TNOP= 0 :NO OPERATION 

IN]TT= 1 S INITIALIZE 

TREAD= 2 :READ FUNCTION 

TWRITE= 3 sWRITE FUNCTION 

TDIAGN= 7 [DIAGNOSE FUNCTION 
TENDPK= 100 ‘END PACKET FROM PERIPHERAL 


-SBTTL TRAP CATCHER 


-=0 
7*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.#2,HALT"’ 
:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
S*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD 0 7: SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 ::SOFTWARE SWITCH REGISTER 


Zp, eereretereererereererteererereeeeeKeKeeeeeeeeeeeKeeeeeeteenes 


:* SWITCH REGISTER 


sy eteereterererereterreeerereeeeteeeteteheneneeneeeeeeeeeeeeeeese 


.7174 
DISPREG: -WORD 0 :SOFTWARE DISPLAY REG 
SWREG: .WORD 0 SOFTWARE SWITCH REG 


SEQ 0030 






- 3 
CVKDBAO PDT-11 110/130 SYS EX. MACY11 30A(1052) O9-APR-79 16:30 PAGE 76-2 





CVKDBA.P11 09-APR-79 08:20 TRAP CATCHER SEQ 0031 
6918 000200 000137 001716 JMP START USE ONLY ONCE. WILL BE OVERLAID By 
6919 ;PRINTER VECTOR ADDR. 
6920 000240 -=240 
e353 000240 000137 001716 JMP START ;RESTART ADDR 
6923 001000 -=1000 
wef ~SBTTL APT PARAMETER BLOCK 


Ss, eeeerereeeereeerreererenereeeeereeeeeeeeeeneeeeeeneteneneeeenee 


:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


;, teeter eeererrerrereerereretereneeeeteeekeneeneeneereeeeeeeeetene 


001000 ~$X=. = 5 ;SAVE CURRENT LOCATION 

000024 -=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 :;FOR APT START UP 

000044 -=44 ::POINT TO APT INDIRECT ADDRESS PNTR. 
000044 001000 SAPTHDR ;;POINT TO APT HEADER BLOCK 

001000 -=.$X =; ;RESET LOCATION COUNTER 


peeeerenerrerererereerrereeeeererereeeKeeKeeeeeeeeeeeeeeeerenese 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


001000 SAPTHD: 


000000 SHIBTS: .WORD 0 :;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
001002 001170 SMBADR: .WORD SMAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
001004 001166 STSTM: .WORD 630. :;RUN TIM OF LONGEST TEST 
001006 001166 SPASTM: .WORD 6350. + sRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
001010 000000 SUNITM: .WORD 0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
001012 000030 -WORD $ETEND-SMAIL/2 ;;LENGTH MAILBOX~E TABLE (WORDS) 


So te el ae ae ot tt te 
IN et tt tk tk et et et os ot es FY FU 


~ swe we we ewe ee ee ee eee ae es aes aa es ses 
© 
oO 
— 
oS 
So 
o 


.SBTTL ACT11 HOOKS 


o 


( 

(2 PURMHAATTATT ARTA AeA TTA T ETAT TTT KER T TARA TATRA R ERTL ARTE RTS 

(1 ‘HOOKS REQUIRED BY ACT11 

(1 001014 $SVPC=. SAVE PC 

(1 000046 -=46 

(1 000046 011560 SENDAD 3: 1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
(1 000052 -=52 

+ 000052 000000 «WORD 0 :22)SET LOC. sn TO ZERO 

( 


001014 - =SSVPC :; RESTORE P 
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BB BF BB BB BB BBB BB BRE BEE EE EPP PRP BPR BPP BPR PRP PP PPA PPP PP PPP PPP LP he he Pm 


POPS PG PAG PING PSN PY AY CAPO PRY nt nt st rt rt nt nt nt st tt kk et tk tt ot ot ot os sf) 
ee ee ee ee ee ee ee ee eee ee ee Dk ee ee ee he en nn nh ne 


So 
So 
st 
at 
So 
So 


eh ee ee ee ee et ee etd eed td 
HAnannnwn® & ES WWWWWR NN o 


ooo 
ooo 
oe 
— 
ooo 
Oowron 


001170 


001 
0012 


001169 
000000 
000 


015 
000012 


000000 


000000 
000000 


000377 
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COMMON TAGS 


-SBTTL COMMON TAGS 


sp, eteeeeerrerererererererereeeeerreeetereeeeeeeeReeeeeAtereeeeres 


s*THIS 
3 USED 


SCMTAG: 
STSTNM: 


$BDDAT: 


SAUTOB: 
SINTAG: 


-=1100 


oooooooooo—-CoCoo°oooo 


= 
yn 
<£ 
Zz 


DDISP 


207><377><377> 
/?/ 


<15> 
<12> 


32 START OF 


3; CONTAINS 
7; CONTAINS 
;; CONTAINS 


7; CONTAINS 
>; CONTAINS 
7; CONTAINS 
3; CONTAINS 
3; CONTAINS 
>; CONTAINS 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
IN THE PROGRAM. 


COMMON TAGS 


THE TEST NUMBER 

ERROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 

MAX. ERRORS PER TEST 

PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD’ DATA 
ADDRESS OF ‘BAD’ DATA 
*GOOD' DATA 


"BA os 


DATA 
7 ;RESERVED--NOT TO BE USED 


; AUTOMATIC MODE INDICATOR 
3; INTERRUPT MODE INDICATOR 


; ADDRESS OF SWITCH REGISTER 
: ADDRESS OF oe REGISTER 


:: TTY KBD BUFFER 
i:TTY PRINTER STATUS REG. ADDRESS 
7: TTY PRINTER BUFFER REG. ADDRESS 


3; CONTAINS 
;; CONTAINS 


NULL CHARACTER FOR FILLS 
# OF FILLER CHARACTERS REQUIRED 


sc INSERT FILL CHARS. AFTER A “LINE FEED 
;;'"TERMINAL AVAILABLE’’ FLAG (B11<07>=0=YES) 


[:CODE FOR BE 


> ;QUESTION 
: CARRIAGE 
+ LINE 


FEED 


LL 
MARK 
RETURN 


PRP AEPRREREAEESAAZASZASASARASEERE ERLE RES E EERE RRR R RRR RRR RR RRR RRR SDD OD 


*SBTTL APT MAILBOX-ETABLE 


ps, eeeeererereeeeereeeeeeeee eee eee AAA 


$MSGLG: .WOR 


SETABLE: 


;;APT MAILBOX 


AMSGTY 


7 ;MESSAGE TYPE CODE 


AFATAL ;;FATAL ERROR NUMBER 


AMSGLG 


7: TEST NUMBER 


: MESSAGE ADDRESS 
> MESSAGE LENGTH 


7; APT ENVIRONMENT TABLE 


SEQ 0052 
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KDBA.P11 09-APR-79 08:20 T MAILBOX-E TABLE SEQ 0033 
(2) 0013210 000 SENV: .BYTE AENV 7 ENVIRONMENT BYTE 

(2) 001211 000 SENVM: .BYTE AENVA eyes peony gd MODE BITS 

(2) 001212 000000 SSWREG: .WORD ASWREG APT SWITCH REGISTER 

(2) 001214 000000 SUSWR: .WORD AUSWR :TOSER SWITCHES 

(2) 001216 000000 SCPUOP: .WORD ACPUOP ;;CPU Aree oe abe 

(2) :* BITS saat bt 4 

(2) 7° 11/04= o1, "1 /05= 02.11/20=03,11/40=04,11/45=05 
(2) 7° 11/70=06, oor 0=10 

(2) 3° BIT 10=REAL TIME CL 

(2) se BIT 9=FLOATING POINT. PROCESSOR 

(2) :* BIT 8=MEMORY AG 

(2) 001220 000 SMAMS1: .BYTE  AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 

(2) 001221 000 SMTYP1: .BYTE AMTYP1 ::MEM. TYPE,BLK#1 

(2) s@ MEM.TYPE BYTE -- (HIGH BYTE) 

(2) hd 900 NSEC CORE=001 

(2) 3° 300 ar BIPOLAR=002 

(2) hal 500 NSEC MOS=003 

(2) 001222 000000 SMADR1: .WORD AMADR1 ;;HIGH ADDRESS,BLKA1 

(2) hal MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF “TYPE’’ ABOVE 
(2) 001224 000 SMAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS.M.S. BYTE 

(2) 001225 000 SMTYP2: .BYTE AMTYP2 ;;MEM.TYPE,BLK#2 

(2) 001226 000000 SMADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS BLK#2 

(2) 001230 000 SMAMS3: .BYTE AMAMSS +3 HIGH ADDRESS M.S .BYTE 

(2) 001231 000 SMTYP3: .BYTE AMTYPS ;;MEM. TYPE BLK#3 

(2) 001232 000000 SMADRS: .WORD AMADRS ;;MEM.LAST ADDRESS ,BLK#3 

(2) 001234 000 SMAMS4: .BYTE AMAMS4 ;;HIGH ADDRESS,M.S.BYTE 

(2) 001235 000 SMTYP4: .BYTE AMTYP4 ;;MEM.TYPE,BLK&4 

(2) 001236 000000 SMADR4: .WORD AMADR4 ;;MEM.LAST ADDRESS, BLKA4 

(2) 001240 000300 SVECT1: .WORD AVECT1 ;; INTERRUPT VECTOR#1,BUS PRIORITY#1 

(2) 001242 000000 SVECT2: .WORD AVECT2 ;; INTERRUPT VECTOR#2BUS PRIORITY#2 

(2) 001244 176500 SBASE: .WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 

(2) 001246 000017 SDEVM: .WORD ADEVM ;;DEVICE MAP 

(2) 001250 SETEND: 

(2) -MEXIT 

(3) 001250 001 TYPFLG: .BYTE 1 CLEAR WHEN DISPLAY car cee™) IS ACTIVE 

(3) ; (MORE COMMENTS AT "'STYPE'’) 

(3) 001251 000 ESCFLG: .BYTE 0 :SET TO 1 WHEN DISPLAY PROCESS IS TYPING AN ESCAPE SEQUE 
(3) 001252 000 GFLAG: .BYTE 0 ;SET TO 1 WHEN CONTROL G RECEIVED WHILE IN TYPE ROUTINE 
(3) 001253 000 XFLAG: .BYTE 0 ;SET 10 1 IF XOFF HAS BEEN RECEIVED 

(3) 001254 000000 VIDONE: .WORD 0 7SET TO 1 WHEN DISPLAY PROCESS FINISHES A PASS 
(3) 001256 000 SERTTL: .W 0 ; TOTAL SOFT ERROR COUNT 

(3) 001260 000000 SERUNO: .WORD 0 :SOFT ERROR COUNTER UNIT 0 

(3) 001262 000000 SERUN1: .WORD 0 :SOFT ERROR COUNTER UNIT 1 

(3) 64 000000 KILFLG: .WORD 0 EOP DEVICE KILL FLAG 

(3) 001 00000 DEVACT: .WORD 0 sDEVICE ACTIVE FLAG 

(3) 001270 000000 DELFLG: .W 0 :VIDEO PAUSE CONTROL FLAG 

(3) 001272 000000 DELCNT: .WORD 0 VIDEO PAUSE CONTROL COUNT 

(3) 001274 000000 DEVCHG: .WORD 0 ;CHANGE DEVICE MAP VIA KBD IF SET 


2 
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-SBTTL ERROR POINTER TABLE 
;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR aw CAN OCCUR. 


s*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE ° PERTINENT. 


(1) 
(1) 
(1) 
} 
(1) :*NOTE1: IF SITEMB 1S 0 THE ONLY PERTINENT DATA IS (SERRPC 
+h > *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
(1) hd EM :;POINTS TO THE ERROR MESSAGE 
(1) 7e DH :;POINTS TO THE DATA HEADER 
(1) 5? DT :;POINTS TO THE DATA 
+h 7* DF ::POINTS TO THE DATA FORMAT 
(1) 
(1) 001276 SERRTB: 
6943 a3 GLOBAL DATA 
6944 sERR 01 - MEMORY TIMEOUT ON READ (0-$LSTAD) 
6945 001276 017171 020545 021254 -WORD EM1,DH2,012,0 
001304 000000 
6946 sERR O02 - MEMORY TIMEOUT ON WRITE CSLSTAD - (MAXMEM-LOADER AREA) ] 
6947 001306 017171 020545 021254 -WORD EM1,DH2,0712,0 
001314 000000 
6948 sERR 03 - MEMORY DATA COMPARE ERROR CS$LSTAD - (MAXMEM-LOADER AREA) 
6949 001316 017210 020571 021264 ~-WORD EM2,DH3,013,0 
001324 000000 , 
6950 sERR 04 - MEMORY TIMEOUT ON WRITE (160000 - 167776) 
6951 001326 017171 020545 021254 ~WORD €EM1,DH2,012,0 
001334 000000 2 
6952 sERR OS - MEMORY DATA COMPARE ERROR (160000 - 167776) 
6953 001336 017210 020571 021264 WORD €M2,DH3,013,0 
001344 000000 
6954 sERR 06 - SYNCHRONOUS COMM DID NOT RECEIVE SYNC CHARACTER 
€955 001346 017242 020526 021246 -WORD €M3,DH1,0T1, 
001354 000000 
6956 sERR 07 = PRINTER STATUS ERROR 
6957 001356 017306 020633 021300 -WORD €M4,DH4,014,0 
001364 000000 
6958 sERR 10 = CLUSTER TERMINAL #1 DATA COMPARE ERROR 
6959 001366 017333 020664 021310 -WORD €M5,DH5,015,0 
001374 000000 
6960 sERR 11 = CLUSTER TERMINAL #2 DATA COMPARE ERROR 
6961 001376 017371 020664 021522 ~-WORD €EM6,DH5,016,0 
001404 000000 
6962 sERR 12 = CLUSTER TERMINAL #3 DATA COMPARE ERROR 
6963 001406 017427 020664 021334 WORD €M7,DH5,017,0 
001414 000000 
6964 sERR 13 = ASYNCHRONOUS COMM DATA COMPARE ERROR 
6965 001416 017465 020664 021346 -WORD €M8,DH5,018,0 
001424 000000 
6966 sERR 14 = SYNCHRONOUS COMM DATA COMPARE ERROR 
6967 001426 017516 020664 021346 WORD €M9,DH5,018,0 
001434 000000 
6968 sERR 15 = CLOCK H 
6969 001436 017546 020526 021246 «WORD nes, DH1,011,0 


001444 000000 
6970 ERR 16 = PRINTER HUNG 
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6971 


6972 
6973 


6974 
6975 


6976 
6977 


6978 
6979 


6980 
6981 


6982 
6985 


6984 
6985 


6986 
6987 


6988 
6989 


6990 
6991 


6992 
6993 


6994 
6995 


6996 
6997 


6998 
6999 


7000 
7001 


7002 
7003 


7004 
7005 


7006 
7007 


001446 
001454 


001456 
001464 


001466 
001474 


001476 
001504 


001506 
001514 


001516 
001524 


001526 
001534 
001536 
001544 
001546 
001554 
001556 
001564 
001566 
001574 
001576 
001604 


001606 
001614 


001616 
001624 


001626 
001634 


001636 
001644 


001646 
001654 


001656 
001664 


001666 
001674 


017557 
000000 


017574 
000000 
017611 
000000 


017626 
000000 


017643 
000000 
017662 
000000 
017702 
000000 


020076 
000000 


020006 
000000 
020045 
000000 
020125 
000000 


020166 
000000 


020241 
000000 


020302 
000000 


020063 
000000 


020362 
000000 


020443 
000000 


020465 
000000 


020506 
000000 
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020635 


020526 


020526 


020526 


020526 


020526 


020526 


020526 


020526 


020526 


020526 


020721 


020526 


020664 


020526 


020664 


020750 


021020 


021127 
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021300 


021246 


021246 


021246 


021246 


021246 


021246 


021246 


021246 


021246 


021246 


021360 


021246 


021370 


021246 


021370 


021402 


021416 


021442 


WORD ER24,0H4,014,0 


sERR 17 = CLUSTER TERMINAL #1 HUNG 


-WORD EM25,0H1,011,0 


sERR 20 = CLUSTER TERMINAL #2 HUNG 


sERR 


ERR 


sERR 


zERR 


ERR 


ERR 


sERR 


ERR 


ERR 


21 


22 


23 


26 


30 


36 


37 


40 


«WORD €EM26,DH1,D11,0 


- CLUSTER TERMINAL #3 HUNG 
-WORD EM27,0H1,0T1,0 


= SYNCHRONOUS COMM HUNG 
«WORD €M28,0H1,071,0 


= ASYNCHRONOUS COMM HUNG 
WORD €M29,DH1,0T1,0 


= SYNCHRONOUS COMM DATA AVAILABLE NOT SET (SPARE ERROR LOCATION) 
«WORD €M32,DH1,011,0 


- NO RESPONSE FROM THE V1T100 
WORD = €125,DH1,0T1,0 


= SYNCHRONOUS COMM - RECEIVER DONE NOT SET 
WORD €M34,DH1,0T1,0 


- ROM TIMED OUT AT ADDRESS 170000 
WORD EM127,DH1,0T1,0 


- VT100 REPORTED SELF-TEST FAILURE 
~-WORD €M130,0H1,011,0 


- OPTION PRESENT (STP) NOT DETECTED BY THE vT100 
WORD €M131,0H31,0131,0 


- UNRECOGNIZED RESPONSE FROM VT100 (ESC SEQ NOT EQUAL EXPECTED) 
«WORD €M132,DH1,011,0 


= SYNCHRONOUS COMM MODEM LOOPBACK SIGNALS NOT SET IN CSR 
WORD €M133,DH5S,CT33.0 


- VT100 HUNG 
WORD €M134,DH1,0T1,0 


~ ASYNCHRONOUS COMM MODEM LOOPBACK SIGNALS NOT SET IN ULSR 
WORD €M140,DH5,0133,0 


- TUS8 DEVICE ERROR 
-WORD €M155,DH32,0134,0 


- TUS8 WRITE ERROR (HARD ERROR) 
-WORD €M136,0H33,0135,0 


- TU58 READ ERROR (HARD ERROR) 
WORD €M137,DH34,0136,0 


SEQ 0035 


Kk 3 
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7008 sERR 41 = TUS8 WRITE ERROR (SOFT ERROR - SUCCESS WITH RETRIES) 
7009 001676 020465 021020 021416 -WORD €M136,DH33,0135,0 
001704 000000 
7010 sERR 42 = TUS8 READ ERROR (SOFT ERROR - SUCCESS WITH RETRIES) 
7011 001706 020506 021127 021442 -WORD €M137,DH34,0136,0 
001714 000000 


SEQ 0036 
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7013 
7014 
7015 001716 012706 001100 
7035 001722 012746 000340 
(1) poles 012746 001734 


000001 


013462 
000340 
177565 


001100 
001140 
001100 


37 025570 
002030 37 000340 


002036 000004 


177777 


Cl te te ct tl te te ee ee a ee 


PRO RS RORY ARIA at et et et at es et es es 
ll i i a 


002064 
002072 


(2) 002074 
) 002194 


000176 
000174 
000004 


001176 
000200 


001212 


012637 
005037 


012737 


012700 001250 


001276 


014344 


002166 012737 000777 


MACY11 


001210 


000060 
000062 


000030 


000036 


000004 


001211 
0011406 


007040 


L 3 
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30A(1052) 09-APR-79 

PROGRAM 

.SBTTL PROGRAM 

START: MOV #STACK,SP :SET UP STACK POINTER 
MOV #PR7,-(SP) :sPUT NEW PS ON STACK 
MOV #64$.-(SP) ::PUT NEW PC ON STACK 

t RTI ::POP NEW PC AND PS 

" s (MPB)Ss«WAPTENV,SENV ss CHECK. JF RUNNING UNDER APT 

BEQ STARTI [IF YES THEN SKIP RESET INSTRUCTION 
RESET [CLEAR THE WORLD !!1!! 

START: MOV #IKSRVI,TKVEC SETUP KEYBOARD INTERRUPT VECTOR 
MOV #PR7, TKVEC 42 


TSTB 24177565 


-SBTTL INITIALIZE THE COMMON TAGS 
::CLEAR THE COMMON TAGS (SCMTAG) AREA 


MOV #SCATAG,RO zsFIRST LOCATION TO BE CLEARED 
CLR (R6)+ ::CLEAR MEMORY LOCATION 
CMP #SWR,R6 ; DONE? 
—~ --6 ;;LOOP BACK IF NO 
WSTACK, SP ;;SETUP THE STACK POINTER 


:s INITIALIZE A FEW VECTORS 
#SERROR ,A#EMTVEC +t A VECTOR FCR ERROR ROUTINE - 
MOV #340 ,asEMTVEC+2 ;:LEVE 
MOV #STRAP ,A#TRAPVEC ty TRAP VECTOR FOR TRAP CALLS 
MOV #340 ,@#TRAPVEC*+2;LEVEL 7 
32SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
3 EQUAL ha. A *=1°", SETUP FOR A SOFTWARE SWITCH REGISTER. 


Ov @VERRVEC,-(SP) ;;SAVE ERROR VECTOR 
MOV #O4$,aWERRVEC  ;;SET UP ERROR VECTOR 
MOV #OSWR, SUR ::SETUP FOR A HARDWARE SWICH REGISTER 
MOV WODISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
CMP #-1,aSUR z: TRY TO REFERENCE HARDWARE SwWR 
BNE 66% ; BRANCH IF NO TIMEOUT TRAP OCCURRED 


7;AND THE HARDWARE SWR IS NOT = -1 
BR 658 ;;BRANCH IF NO TIMEOUT 


64$: ~ 4 #65$, (SP) ::SET UP FOR TRAP RETURN 
65$: MOV #SWREG,SWR ::POINT TO SOFTWARE SwWR 
MOV #DISPREG, DISPLAY 
66$: MOV (SP)+,@#ERRVEC ;;RESTORE ERROR VECTOR 
CLR SPASS 3:CLEAR PASS COUNT 
BI1TB WAPTSIZE,SENVM ;;TEST USER SIZE UNDER APT 
BEQ 67$ 3:YES,USE NON-APT SWITCH 
$ MOV #SSWREG,SWR 7:NO,USE APT SWITCH REGISTER 
6/$: 
MOV #TYPFLG,RO sCLEAR FLAGS 
1$ CLR (RO)* ;CLEAR THE LOCATION 
CMP #SERRTB,RO ;CHECK TO SEE IF DONE 
BNE 1$ ;CLEAR NEXT LOCATION IF NOT DONE 
CLRB XIEFLG 
MOV #777, BLKNUM 


; TYPE THE PROGRAM NAME--INITIALIZE VT100 ATTRIBUTES 


:TEST ODD BYTE ON CONSOLE IN CASE LOADED BY APT. 
; THIS WILL RESTORE COMM/CONSOLE ADDRESSES TO NORMAL. 


SEQ 0037 
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CVKDBA.P11 09-APR-79 08:20 INITIALIZE THE COMMON TAGS SEQ 0038 
7054 002174 112737 000001 001250 MOVB #1,TYPFLG sSET ‘TYPE’ UP TO NOT NEED TO USE ESCAPE 
7055 ;SEQUENCES UNTIL VT100 TESTING STARTS. 
7056 002202 104401 015670 TYPE, TITLE s INITIALIZE SCREEN AND TYPE TITLE 
7057 002206 005737 000042 TST aa42 sARE WE RUNNING UNDER XXDP/ACT? 

7058 002212 001023 BNE 2$ :BRANCH IF YES 
7059 002214 122737 000001 001210 CMPB #APTENV,SENV zARE WE RUNNING UNDER APT? 
7060 002222 001417 BEQ 2% BRANCH Y 
7061 002224 023727 001140 000176 CMP SWR , #SWREG sSOFTWARE SWITCH REGISTER SELECTED?? 
7062 002232 001031 BNE 3$ ;BRANCH IF NOT 
7063 002234 104406 GTSWR GET SOFTWARE SWITCH REGISTER SETTINGS 
7064 002236 032777 040000 176674 BIT #B1T14,aSuR ;CHECK IF DEVICE MAP IS TO BE CHANGED 
7065 002244 001424 BEQ 3$ :1F 0 DO NOT CHANGE DEVICE MAP 
7066 002246 005237 001274 INC DEVCHG :SET tt oy Bs FLAG 
7067 002252 104406 GTSWR :G0 GET NEW VALUE 
7068 002254 005037 001274 CLR DEVCHG ;CLEAR DEVICE ANAP CHANGE FLAG 
7069 002260 000416 BR 3$ 
7070 002262 112737 000001 001134 2$: MOVB #1,$AUTOB :SET AUTO-MODE INDICATOR 
7071 002270 022737 011560 000042 CMP #SENDAD ,a#42 sCHECK IF ACTI1 
7072 002276 001407 BEQ 3$ :1F YES ASSUME SCRATCH DRIVES INO & 1 
7073 002 122737 000020 000041 CMPB #20,a841 CHECK IF XXDP CHAIN MODE 
7074 002 001003 BNE 3$ :1f NOT CHAIN MODE THEN CONTINUE 
7075 002310 052737 000400 001246 BIS #8118,SDEVM :DROP LOAD MEDIA FROM THE DEVICE MAP 
7076 002316 004737 011602 3$: JSR PC,SIZE SEE WHO IS ON THE SYSTEM 
7077 (002322 123727 001210 000001 CMPB SENV ,#APTENV sARE WE RUNNING _— APT? 
7078 0023 001421 BEQ LOOP :BR IF YES & DONT HALT 
7079 002332 005737 000042 TST a#42 :CHECK IF LOADED. UNDER XXDP/ACT11 
7080 0023 001016 BNE LOOP :1F YES SKIP WARNING AND HALT MESSAGE 
7081 002340 005737 012620 TST TUPRES sCHECK IF TUS8 IS PRESENT 
7082 002344 001413 BEQ LOOP :TU5S8 1S NOT PRESENT 
7083 002346 032737 000400 001246 BIT #B1T8,SDEVM ;TUS8 TAPE UNIT 0 THERE? 
7084 002354 001404 BEQ 4$ :Bw IF YES 
7085 002356 032737 001000 001246 BIT #B11T9,$DEVM ;TUS8 TAPE UNIT 1 THERE? 
7086 002364 001003 BNE LOOP ;BR IF NO 
7087 002366 104401 016714 4$: TYPE s WARNING : INSERT SCRATCH TUS8 CASSETTES 
7088 002372 000000 HALT 
7089 002374 012706 001100 LOOP: MOV WSTACK , SP ;LOOP HERE AFTER EOP & RESET STACK 
Kon 002400 004737 013270 JSR PC, TIMER TIMER TO ALLOW 'P* TO PRINT BEFORE RESET 
7092 002404 000005 RESET ;CLEAR ALL INTERRUPT ENABLES 
7093 002406 012737 000102 000100 MOV WCLKVEC#2,CLKVEC ;SETUP CLOCK TRAP CATCHER 
ree 002414 0050357 000102 CLR CLKVEC+2 : 
7096 002420 005037 001264 CLR KILFLG :CLEAR EOP DEVICE KILL FLAG 
Ao 4 002424 005037 001266 CLR DEVACT :CLEAR DEVICE ACTIVE FLAG 
7099 002430 5$: 
(1) 002430 012746 000000 MOV #PRO,-(SP) ;:;PUT NEW PS ON STACK 
(1) 002434 012746 002442 MOV #64$,-(SP) ;:PUT NEW PC ON STACK 
(1) 002440 000002 RTI ;;POP NEW PC AND PS 
ro 002442 64$: 
7101 002442 032737 000010 001246 T #B113,$DEVM CHECK IF EXTERNAL LOOPBACK 
7102 002450 001007 BNE 1$ ;1F NOT SETUP FOR INTERNAL LOOPBACK 
7105 002452 042737 000002 176610 BIC #OTR,AMRC ; TOGGLE DTR TO SETUP COMM PORT 
7104 002460 052737 000002 176610 BIS #DTR,AMRC 
7105 002466 000406 2% $60 SETUP COMM PORT 
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ne ad 


at ss a ss oOo 


> 


002574 


005037 
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000001 
001176 


001135 
000100 


000001 


026334 


MACY11 bing 


176610 
176610 
177420 


001210 


176372 


001135 
176354 


1$: 
23: 


3$: 
4$: 


3 
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#<RTS!DTR>, poe ; TOGGLE DTR AND RTS TO SETUP COMM PORT 


#<RTS!DTR> 


F<AMOD'B9660! CHAR PARAM ;SETUP sect PARAMETER REGISTER 


PC, TIMER 
nt ae 


3 
SPASS 
3$ 
SINTAG 
WIE ,aSTKS 
4% 


#1, SINTAG 
WIE ,aS$TKS 
PERR 


PSERR 


CLEAR DSI BIT IF 

TIMER TO ALLOW PREVIOUS XFERS TO FINISH 
:CHECK TO SEE IF APT 

:1f NOT APT SET cab INT ENA ACTIVE 
:CHECK IF FIRST PASS 

c1F FIRST PASS set KBD INT ENA 


;SET NON-INTERRUPT MODE INDICATOR 
CLEAR RECEIVER INT ENABLE FOR KEYBOARD 
:GO CLEAR PASS ERRORS 

SET INTERRUPT MODE INDICATOR 

ALLOW KEYBOARD INTERRUPTS 

;PASS ERR COUNT FOR EOP TYPEOUT 

:PASS SOFT ERR COUNT FOR EOP TYPEOUT 


ee ee 


SEQ 0039 


at et es os os es 
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002706 
002710 
002714 
002722 


002726 


002772 
002774 


003024 


001362 
005037 
012737 
012704 


005037 


104003 
062704 


000736 
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000020 
003244 
013420 
000340 
012640 
000300 
000042 
005370 
013460 
013460 
003242 
000002 
031666 


003234 
125252 
031666 
013460 
003240 
013460 
003242 


003236 
003236 
003242 
000002 
003234 


003234 
052525 
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,, eeererereererererrerrerrerererreteneretenetenererenererereeeetese 


: MEMORY TESTS 


sMEMORY FROM 0 TO THE LAST LOC OF PROGRAM (LSTAD) IS TESTED FOR TIMEOUT. 
sMEMORY FROM "LSTAD’ TO THE BOTTOM OF THE XXDP MONITOR/ABS LOADER 

:1S TESTED BY A PASS OF A 1010 PATT FOLLOWED BY A PASS OF 0101 PATTERN. 
;1F THE SYSTEM HAS A 28K MEMORY, 28K TO 30K WILL BE TESTED SIMILARLY. 


s,eeektererrerereererererererereeerenereereneerekeeaeineReReeeeeee 


001246 MEMTST: BIT #B114,SDEVM sCHECK IF MEMORY TEST DROPPED 
BEQ 7$ [IF NOT GO DO THE MEMORY TEST 
JMP VITST :GO CHECK FOR VT100 TESTING 
000004 7%: MOV MINTSRV,ERRVEC :SETUP TIMEOUT TRAP ADDR 
000006 MOV #PR7,ERRVEC42 
MOV MAXMEM,R3 
SUB #300,R3 :TEST ONLY AS FAR AS ABS LOADER IF NOT XxDP 
TST aes2 i XxDP OR ACT? 
BEQ 5$ ANCH IF NOT 
SUB #<1500.#2>+300.R8— wrest ONLY TO BOTTOM OF XXDP MONITOR 
5$: CLR RG SADDR POINTER 
1$: CLR INTFLG 
TST (R4) ;TEST LOCS 0 THRU END OF PGM. 
1ST INTFLG TIMEOUT? 
BEQ 2$ :BR IF NO 
MOV R4, ADDR :FOR ERR TYP 
ERROR+1 : TIMEOUT ON READ 
2$: ADD #2,R4 ‘BUMP ADDR 
CMP RG. #LSTAD SAT END? 
BNE 1$ [BR IF NO 
cLR MEMCT 
003240 MOV #125252,PAT :DATA PATT FOR 1°ST PASS 
8$: MOV WLSTAD RG [ADDR POINTER. R/W LOCS LSTAD THRU 
:BOT OF RT11 OR BOT OF ABS LOADER 
3$: CLR INTFLG 
MOV PAT, (R4) sWRITE 
TST INTFLG TIMEOUT? 
BEQ 4$ ‘BR IF NO 
MOV R4, ADDR :FOR ERR TYP 
ERROR+2 : TIMEOUT ON WRITE 
4$: MOV (RG) ,MEMHLD READ 
003240 CMP MEMHLD, PAT : COMPARE 
BEQ 6$ 
MOV R4, ADDR :FOR ERR TYP 
ERROR+3 ‘COMPARE ERROR 
6$: ADD #2,R4 :BUMP POINTER 
CMP RG,RS SAT BOT OF ABS LOADER? 
BNE 3$ :BR IN NO 
TST MEMCT 
BNE 9$ 
INC MEMCT 
003240 MOV #052525,PAT :DATA PATT FOR 2°ND PASS 
BR 8$ REPEAT 
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NANA SSS 
at ns ns st ss ot Ss ss ss 
FSRLALVLESELESE 


oo 
on 


003026 
003034 


003172 


003174 
003202 


003232 
003234 


003236 
003240 
003242 


023727 
001047 


012737 


104005 
062704 
020427 
001350 


005237 


000734 
005037 


104027 


012737 
005037 


032777 


000404 
000000 


000000 
000000 
000000 


012640 


125252 


013469 
003242 


003236 
003236 


003242 


000002 
167776 


003234 
003234 
052525 
013460 


170000 
013460 


000006 
000006 


010000 
017057 


017074 
013376 


MACY11 tint 


157776 


003240 


003240 


000003 
003240 


000004 


175724 
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9$: 


aos 


12$: 


148: 


15$: 


16$: 


MEMCT: 


~ a 
ADDR: 


CMP MAXMEM,#157776 ;D0 WE HAVE 28K? 
BNE 158 :BR IF NO & EXIT 


MOV #125252,PAT DATA PATT FOR 1°ST PASS OF HI MEM 
MOV #160000 ,R4 ;ADDR PTR TO TOP OF 28K 


MOV PAT, (R4) s WRITE 

TST INTFLG 

BEQ 128 

MOV R4, ADDR FOR ERR TYP 

ERROR+4 : TIMEOUT 

MOV (R4) ,MEMHLD > READ 

CMP MEMHLD ,PAT ; COMPARE 

BEQ 14$ 

MOV R4,ADOR FOR ERR TYP 

ERROR+5 COMPARE ERROR 

ADD #2,R4 

CMP R4 #167776 sAT END OF 30K? 

BNE 11% :BR IF NO 

INC MEMCT 

CMP MEMCT #3 

BEQ 15$ 

MOV #052525,PAT ;DATA PATT FOR 2°ND HALF OF HI MEM 
BR 10% ; REPEAT 

CLR INTFLG :CLEAR FLAG TO DETFCT INTERRUPT 


TST a#170000 ; TEST ROM SPACE 
TST INTFLG WAS THERE A TRAP? 
BEQ 16% BRANCH IF NOT 
ERROR+27 ;ROM NOT PRESENT 


MOV WERRVEC+2,ERRVEC ;RESTORE TIMEOUT VECTOR 
CLR ERRVEC+2 


BIT 1 Na SKIP TYPEOUT IF NOT SET 
Vv 
TYPE o MEMORY 


TYPE ~DUN 

JSR PC,GFLCHK sCHECK IF *G TYPED WHILE TYPING 

BR vTTST 

0 3:0 = MEM FROM LSTAD TO MONITOR/ABS LOADER W/ 125252 PATT 
31 = SAME WITH 052525 PATT 
31 = MEM FROM 28K TO 30K wITH 125252 PAT 
:2 = SAME WITH 052525 PATT 
73 = EXIT 

0 ;PUT MEMORY READ HERE 

0 sPATT TO BE WRITTEN & READ 

0 ADDR UNDER TEST 


SEQ 0041 
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003244 


003526 
003534 
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032737 


000100 
000001 
001176 


001254 
012666 


000060 
000063 


016351 
001000 


016361 
012666 


000060 
000067 


000001 


177770 


001176 
014012 


000100 
010000 


MACY11 tnt 


001246 
001210 


014012 
014012 


003372 
175564 


003372 


014012 
014012 


014012 
014012 


016430 


000064 
000066 
014346 


001266 
175414 


175376 


& 
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SEQ 0042 


Ss, eeeeeereeeereeerereeeeterereeeerereteeeeeeteeeereeenerereneeeee 


START v1100 


s,etereeeesrerererererrererererreereeeeeaereeeKeeeeeteraReeeeeeet 


VITST: 


7$: 


8$: 
9$: 


3$: 
4$: 


5$: 


6$: 


BIT #B116,S0E VA 
CLKTST 


BNE 
TST SPASS 
BNE CLKTST 


CLRB VTDONE 
JSR Ps arith 
R 
CLKTST 
2$ 
CMPB vee 
CMPB #°3,OPTCHR 
BEQ 
ERROR+32 
BR 2% 
ERROR+30 
MOV #TIONTF ,9$ 
BIT #B1T9,aSwR 
BEQ 8$ 
MOV #VIDNTF ,9$ 
JSR Bic 
BR CLKTST 
BR 6$ 
CMPB #°O,OPTCHR 
l 3$ 
CMPB #'7,OPTCHR 
4$ 


BR 6$ 
BITB #B1T0,OPTCHR 
BNE 5$ 


BIC #*C7,OPTCHR 
+31 


TST SPASS 
6$ 


MOVB gh atari 


TYPE ,OPTPRE 
JSR PC ,GFLCHK 


H 
MOV #TPSRV, TPVEC 
MOV #PR7, TPVEC#+2 
MOV #OSPTXT, TXTPTR 


CLRB TYPFLG 


BIS oo1 tt ceyact 


BIS #1E,asTP 
BIT WBIT12,aSwR 


LK 
CMPB enn 


DROP TEST? 
BRANCH IF YES 
ee ee IF Pe APT 


:BR IF 

> CHECK " "FIRST PASS 

CAN ONLY RUN DISPLAY TESTS THE FIRST PASS 
;FLAG THAT DISPLAY PROCESS HAS NOT COMPLETED 
;SEND AND RECEIVE AN ESCAPE SEQUENCE 

TEXT TO SEND REQUEST DEVICE STATUS 

TEXT TO EXPECT=-DEVICE STATUS REPORT 

RETURN FOR XMITTER HUNG 

RETURN FOR RECEIVER HUNG OR UNRECOGNIZED RESPONSE 
TEST THE OPTION CHARACTER THAT WAS RECEIVED 
BRANCH IF IT INDICATED OK STATUS 

CHECK IF IT INDICATED BAD STAUTS 

;BRANCH IF IT DID 

UNRECOGNIZED ESCAPE SEQUNCE FOR STATUS REPORT 


3VT100 REPORTED SELF-TEST FAILURE 
;SETUP FOR VT100 IDENIFY SEQUENCE 
sCHECK IF VT132 OR VT100 

:1f 9 THEN VT100 

sSETUP FOR VT132 IDENTIFY SEQUENCE 

; INITIATE ANOTHER FSCAPE SEQUENCE 

TEXT TO SEND--REQUEST TERMINAL ID 
EXPECTED TEXT=--TERMINAL IDENTIFY 
;MMITTER HUNG RETURN 

RECEIVER HUNG OR UNRECOGNIZED RESPONSE 
CHECK IF THE OPTION CHAR > ASCII 0 
BRANCH IF NOT 

CHECK IF IT WAS < ASCII 7 

:BRANCH IF IT WAS (WITHIN RANGE) 
UNRECOGNIZED ESCAPE SEQUNCE FOR TERMINAL IDENTIFY 


:MAKE SURE oe PRESENT WAS ASSERTED (STP) 
;BRANCH IF IT WAS 

MAKE CHARACTER NON-ASCI1 FOR ERROR REPORT 
:OPTION PRESENT (STP) NOT ASSERTED TO VT100 


CHECK IF FIRST PASS 

;BRANCH IF NOT 

: MOVE THE ASCI1] CHARACTER INTO TEXT STRING 
opty THE OPTION PRESENT PARAMETER 
:CHECK IF SG TYPED DURING TYPEOUT 

SET UP DISPLAY PROCESS INTERRUPT VECTOR 
SET PRIORITY 

;SET UP POINTER TO DISPLAY TEXT 

;FLAG THAT DISPLAY PROCESS 1S ACTIVE 

:SET VT100 ACTIVE FLAG 

;SET XMIT INTERRUPT ENABLE 

; (RCVR IE ALREADY ON) 

:SKIP TYPEOUT IF NOT SET 


CVKDBAO PDT-11 110/130 SYS 
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003542 


003556 


001406 


104410 


x 


E 
20 


E 4 
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INITIALIZE THE COMMON TAGS 


BEQ CLKTST 
SAVEVT 


RESTVT 


sALLOW 2 TYPEOUTS ON SAME LINE 


sRESTORE v1100 DISPLAY 


SEQ 0043 
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CVKDBA.P11 09-APR-79 08:20 
7294 
7295 , 
72% 
7297 
7298 003560 032737 000200 
7299 003566 001045 
7300 003570 122737 000001 
7301 003576 001003 
7302 003600 005737 001176 
7303 3604 001036 
7306 003606 612737 013420 
7305 003614 012737 000200 
7 00 005037 013460 


306 3622 
7307 00369* 052737 000100 
7309 003634 004537 013156 
364 


7314 003650 052737 000100 


7316 603656 032777 010000 
7317 003664 001406 
7318 003666 104407 
7319 003670 104401 016571 
7320 003674 104401 017045 
7321 003700 104410 


F 4 
MACY11 30A(1052) O9-APR-79 16:30 PAGE 79-2 
INITIALIZE THE COMMON TAGS 


001246 
001210 


000100 
000102 


177544 


001266 
175254 


-,e#enreetererrerererereerereretrerereeeeeaeteeeeeeeeeeneneneeenetetese 


START LINE CLOCK 


-,eetreeterererrreretererereereeerereekeeeteeeeeteneteeeeeteneneee 


CLKTST: BIT 
BN 


1$: 


#B1T7,S0E VM :DROP TEST? 
E PRIST 3:BR IF YES 
CMPB WAPTENV,@#SENV ;CHECK IF APT 
BNE 1$ :1f NOT APT DO THE TEST 
TST SPASS ;APT = CHECK IF FIRST PASS 
BNE PRTST 331F NOT SKIP THE TEST 
MOV WINTSRV,CLKVEC ;SETUP VECTOR AREA 
MOV #200,CLKVEC*+2  ;LOCKOUT OTHER INTER. 
CLR INTFLG 
Bit WIE, CiK ;SET CLOCK LOOSE! 
JSR RS, TIMER ;SEE IF INTFLG GOES TO 100 
INTFLG 
100 
ERROR+15 7CLK NOT RESPONDING 
BR PRIST 
BIS #B1T6,DEVACT sSET CLOCK ACTIVE FLAG 
BIT #BIT12,aSwR ;SKIP TYPEOUT IF NOT SET 
BEQ PRIST 
SAVEVT sALLOW 2 TYPEOUTS ON SAME LINE 
TYPE CLOCK 
TYPE RUN 
RESTvT sRESTORE vT100 DISPLAY 


SEQ 0044 


. G 4 
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CVKDBA.P11 09-APR-79 08:20 INITIALIZE THE COMMON TAGS SEQ 0045 
7323 spteeeererereeeereeeereeerecerererereereeeeterereteneeeeereterese 
7324 : START PRINTER 
7325 ppeeeeeererrererereeerereereeeerererereeKenenereneeeereerereretTt 
7326 
7327 003702 005737 012614 PRTIST: TST PRPRES ; THERE? 

7328 003706 001465 BEG SMTST ;:BR IF NO 

7329 003710 032757 100000 001246 BIT #B1115,S0EVM ;DROP TEST? 

eae 003716 001061 BNE SATST 77BR IF YES 

7332 003720 012737 023414 177420 MOV #<PRT!B1200! CHAR8>, PARAM ;SETUP BAUD RATE & CHAR LENGTH 
7333 003726 012737 014350 000200 MOV #PRSRV ,PRVEC ELSE SETUP PRINTER VECTOR 

rete 003734 012737 000200 000202 MOV #200 ,PRVEC+2 ;LOCKOUT INT ERR 

raze 003742 005037 014514 CLR LINCT ;CLEAR LINE CTR 

7338 003746 012737 000015 014512 MOV #CR,PRCHR ;CHAR TO BE PRINTED 

7339 START WITH ‘DEL* (177) IF IT IS NEEDED TO CLEAR BUFF 
7340 003754 052737 000100 177514 BIS WIE,PRS SET PRINTER LOOSE! 

7341 ;WILL PRINT CONTINUOUS LINES 
7342 ;EA BEGINNING WITH ASCII 40 THRU 176 
73435 003762 004537 013156 JSR RS,TIMER SEE IF LINCT GOES TO 5 

7344 003766 014514 LINCT 

7345 0603770 000005 5 

7346 003772 104016 ERROR+16 ;PRINTER NOT RESPONDING 

of 003774 000432 BR SMTST 

7349 003776 005737 012616 TST PRPORT ;CHECK FOR EXTERNAL LOOP-BACK 
7350 004002 001404 BEQ 23 71f NOT THEN CONTINUE 

7351 004004 042737 000100 177514 BIC #WIE,PRS sEXTERNAL = SHUT DOWN PRINTER 
7352 004012 000403 BR 3$ 360 REPORT PRINTER DONE 

7353 004014 052737 000040 001266 28: BIS #B1TS ,DEVACT :SET PRINTER ACTIVE FLAG 

7354 004022 032777 010000 175110 38: BIT #B1T12,aSwWR :SKIP TYPEOUT IF NOT SET 

7355 004030 001414 BEQ SMTST 

7356 004032 104407 SAVEVI ;ALLOW 2 TYPEOUTS ON SAME LINE 
7357 004034 104401 016561 TYPE -PRINT 

7358 004040 005737 012616 TST PRPORT ;CHECK FOR EXTERNAL LOOP-BACK 
7359 004044 001403 BEQ 4$ :1f NOT THEN CONTINUE 

7360 004046 104401 016605 TYPE PORT ;PRINT TERMINATION REPORT 

7361 004052 000402 BR 5$ ;RESTORE CURSOR AND DO NEXT TEST 
7362 004054 104401 017045 4$: TYPE ,RUN 


7363 004060 104410 5$: RESTVT ;RESTORE vT100 DISPLAY 


H 4 
peel es -11_ 110/130 SYS EX. MACY11 30A(1052) O9-APR-79 16:30 PAGE 79-4 
CVKDBA. 09-APR-79 08:20 INITIALIZE THE COMMON TAGS 


s,eeeeererererrererererereeereerererereeeeeeeeeeeteeeeeAeeAeee eee 


: START SYNC COMM PORT 


sp eeeteereererererererrererrereeeeeeereneeekateareeeeneeereeereeee 


002000 001246 SMTST: #B1T10,S0EV— DROP TEST? 
BNE 1$ sBRANCH IF YES 
000001 001210 #APTENV,SENV 
NOAPTS 


001176 R ? 
;D0 TEST IF 1ST PASS 
004642 1$: ;SKIP THE TEST 


005037 015342 NOAPTS: LSTCHR sCLEAR LAST CHARACTER FLAG FOR XMIT 
052737 000400 176624 B WAR , SAXC MASTER RESET 
052737 004000 176624 #ACLK ,SMXC sMAINT CLOCK 


012737 007026 176622 #<CHRB!ODDPAR!026>,SMPAR ;SETUP SYNC PARAMETER REGISTER 
000010 001246 #B1T3,$DEVM :CHECK FOR EXTERNAL LOOPBACK 
1$ :1f 0 DO SYNC COMM MODEM CHECK 
014000 176624 #<MMIMCLK>,SMXC ;1F 1 SET MAINT MODE FOR INT LOOPBACK 
000026 176620 M<RTS!DTRISRSYN>,SMRC  ;SET SEARCH SYNC 
000526 2% :GO DO THE TEST 


012737 122006 004640 : M<DSCICTS!SREC!IRTS!DTR>, gry ;SETUP EXPECTED RESULTS 
SARC CLEAR ANY FLAGS THAT MIGHT BE SET 
176620 #<RTS!DTR>,SMRC ;SET DIR AND R 
004636 SMRC , SAVARC READ CSR REGISTER AND SAVE 
004636 004640 SAVARC,EXPMRC ;CHECK RESULTS TO RE EXPECTED 
BEQ 7$ :1f EQUAL THEN CONTINUE 
ERROR+33 SYNC COMM MODEM SIGNAL ERROR 
BR 6$ sEXIT THE TEST 
100000 004640 : #OSC ,EXPMRC : CLEAR EXPECTED ye) BIT A Ds READ 
176620 004636 SARC , SAVARC ;READ §$ C CSR REGISTE 
004636 004640 SAVMRC ,EXPMRC 


BEQ 8$ E 
ERROR+33 sSYNC COMM MODEM SIGNAL ERROR 
BR 6$ EXIT THE TEST 
151012 004640 : #<DSC!RING! CDET!DSRDY!SXMIT !DTR>, EXPMRC hy ty EXPECTED 
000012 176620 M<SXMITIDTR>,SMRC ;SET Ra oy XMIT AND DTR 
176620 004636 SARC , SAVARC ;READ SYNC COMM CSR AND SAVE 
004636 004640 SAVMRC,EXPMRC ; CHECK RESULTS 
9$ 71F EQUAL THEN CONTINUE 
:SYNC COMM MODEM SIGNAL FAILURE 
BR 6$ EXIT THE TEST 
100000 004640 : #OSC ,EXPMRC + CLEAR EXPECTED DSC BIT 
176620 004636 SMRC , SAVARC ;READ SYNC COMM ' REGISTER 
004636 004640 SAVMRC ,EXPMRC : CHECK THE RESU ay 
0$ CONTINUE IF eau 
SY YNC COMM MODER SIGNAL FAILURE 
6$ sEXIT THE TEST 
100002 004640 : oaoee eens EXPMRC ;SETUP EXPECTED RESULTS 
#OTR,SMR Set DATA TERMINAL READY 
SMRC , SAVARC ;READ COMM CSR REGISTER 
004636 004640 SAVMRC,EXPMRC ; CHECK RESULTS TO EQUAL EXPECTED 
BEQ 118 :1F EQUAL THEN CONTINUE 
ERROR+ 353 SYNC COMM MODEM SIGNAL FAILURE 


R 


33333 9B 


004170 
004176 
0042 
004210 
004216 
004224 
004226 
004230 
00423 
004240 
004246 
004254 
004256 
0042 
004262 


358 


SSSssee 
¥eSorne 


ss 
Orr 
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7470 004622 
7471 004630 
7472 004634 


7474 004636 
7475 004640 


000506 
122737 
0 


005737 


052737 
012737 


004537 


000453 
013737 


000424 
004537 


015252 


012737 
052737 
052737 


004537 
015244 
177777 
104022 
000240 


012737 


000410 


012737 
005737 
000402 


000000 
071000 


000001 


000026 
176620 


000022 
176620 


000020 
000026 


013304 


176622 
015246 


012642 


000027 
000100 
000100 


013156 


000400 
176620 


MACY11 tint 
INITIAL] 


001210 118: 


176620 


176620 128: 


176624 2$: 
176626 


015246 
000026 


4%: 


015244 
176620 
176624 


176624 5$: 
174336 


176624 6%: 


SAVMRC: 
EXPMRC: 


O9-APR-79 16:30 PAGE 79-5 


ZE THE COMMON TAGS 

BR 6$ 

CMPB #APTENV,SENV 
128 


BIS #SEND , SMXC 
MOV #026, SMXB 


JSR RS, TIMER2 
ERROR+26 
BR 6% 


MOV SMRB , COMHLD 
CMP aerate, 


JSR R5,SETVEC 
SMRVEC 
SMRSRV 
SMXSRV 


MOV #027, COMCHR 
BIS WIE, SMRC 
BIS WIE, SMXC 


R5, TIMER 

COMCHR 

177777 
ERROR+22 
NOP 
MOV 
BIT aBitie, OSU 
BEQ AMTS 
SAVEVT 
TYPE .SCOM 
TYPE ,DUN 
RESTVT 
BR AMTST 
MOV WAR, SMXC 
TST SMRC 
BR AMTST 
- WORD 


sEXIT THE TEST 
+e IF ON APT 


;1F NOT LEAVE DTR SET ONL 
MOV #<DIRIRTS!SRSYND, oSMRC ;SET APT EXTERNAL LOOPBACK 


:CLEAR DSC BIT 
START THE 


2s ;60 TEST 
MOV a /SMRC ;SET NON-APT ar LOOP SIGNAL 


;CLEAR DSC BIT IF S 


sENABLE XMIT SEND 
:XMIT SYNC CHAR 


WAIT FOR DONE 


3NO DONE 
sEXIT 
;READ WORD 


71S IT SYNC CHAR? 
:BR IF YES 


;SETUP VECTOR AREA 


31°ST CHAR TO BE XMITTED 
;SET SYNC MODEM LOOSE! 


SEE IF COMCHR GOES TO ALL 1°S (DONE) 


SYNCH COMM NOT RESPONDING 


MASTER RESET 
00 TYPEOUT IF SET 
sEXIT IF NOT 


sALLOW 2 TYPEOUTS ON SAME LINE 


sRESTORE vT100 DISPLAY 


sMASTER RESET 


:GO CHECK FOR ASYNC TEST 


0 ;COMM RCVR CSR SAVED HERE 
«WORD ODSRDY!RING!CTS!CDET 


ts REC SYNC CHAR 


SEQ 0047 





4 
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09-APR-79 08:20 INITIALIZE THE COMMON TAGS SEQ 0048 
7477 pp reerrerererrerrreerereerererererenereereeeeeeeeeteeeeeerereeeee 
7478 $ START ASYNC COMM PORT 
7479 sp etreeerererererereererererereerererereeeerereeeeReeeeeereeeteee 
7480 
7481 004642 032737 004000 001246 AMIST: BIT #B1711,S0EVA sDROP TEST? 
7482 004650 001007 BNE 8$ ;1F YES THEN or TEST 
7483 004652 122757 000001 001210 CMPB #APTENV,SENV sCHECK IF ON A 
7484 004660 001005 BNE 23 ‘BRANCH IF NOT. 
7485 004662 005737 001176 TST SPASS ;BYPASS TEST AFTER FIRST PASS ON APT 
7486 004666 001402 BEQ 2s 
oy 44 004670 000137 005314 8$: JMP CLITST 3GO CHECK FOR CLUSTER OPTION 
7489 
7490 004674 032737 000010 001246 2%: BIT #B11T3,SDEVM sCHECK FOR EXTERNAL LOOPBACK 
7491 004702 001414 BEQ 1$ 31F EXTERNAL GO DO MODEM TESTS 
7492 004704 042737 000006 176610 BIC #<RTS'DTR>,AMRC ; TOGGLE DTR AND RTS TO SETUP INTERNAL LOOP 
7493 004712 052737 000006 176610 BIS @<RTS!DTR>,AMRC ; 
7494 004720 005737 176610 TST AMRC ;CLEAR ANY BITS THAT MAY HAVE SET 
7495 004724 012737 037036 177420 MOV #<AMOD !B9600!OPAR! CHARS! MAINT>, PARAM is PARAMETERS 
ep 004732 000523 BR TSTAM 3;GO0 TEST ASYNC COMM PORT 
7498 004734 012737 037034 177420 1$: MOV Seal ictaranat eines tem sSETUP PARAMETERS FOR EXT 
7499 004742 012737 122006 004640 MOV M<DSI'ICTS!SREC!RTS!DTR>,EXPMR sSETUP EXPECTED CSR REG 
004750 005737 176610 TST AMRC 7 CLEAR ANY Bits THAT MAY BE SET 
7501 004754 012737 000006 176610 MOV @<RTS'DTR>, AMRC ;SET RTS AND DTR IN CSR REGISTER 
7502 004762 013737 176610 004636 MOV AMRC , SAVARC ;SAVE ASYN CSR REGISTER 
7503 004770 023737 004636 004640 CMP SAVMARC ,EXPMRC > CHECK TO SEE IF EQUAL 
7504 004776 001402 BEQ + :1F EQUAL THEN CONTINUE 
7505 005000 104035 ERROR+35 sASYNC COMM MODEM FAILURE 
7506 005002 000544 BR CLITST sEXIT TO CLUSTER TES! 
7507 005004 042737 100000 004640 3$: BIC #0S1,EXPMRC CLEAR EXPECTED DSI BIT FOR 2ND READ 
7508 005012 013737 176610 004636 MOV AMRC , SAVARC ;READ ASYNC COMM AND SAVE 
7509 005020 023737 004636 004640 CMP SAVMRC,EXPMRC ;CHECK THAT DS] WENT AWAY 
7510 005026 001402 BEQ 4$ 31F EQUAL THEN CONTINUE 
7511 005030 104035 ERROR+35 :ASYN C COMM MODEM FAILURE 
7512 005032 000530 BR CLITST O CHECK FOR CLUSTER 
7513 005034 012737 151012 004640 4$: MOV S<DS1IRING!CDET!OSRDY' SAP TSDTRO™ by sSETUP EXPECTED CSR 
7514 005042 012737 000012 176610 MOV #<SXMITIDTR>, AMRC 3SET SEC XMIT A ND DTR 
7515 005050 013737 176610 004636 MOV AMRC , SAVARC ;READ ASYNC COMM CSR AND SAVE 
7516 005056 023737 004636 004640 CMP SAVMRC ,EXPMRC sCHECK TO SEE IF EQUAL 
7517 005 001402 BEQ 5$ 31F EQUAL THEN CONTINUE 
7518 005 104035 ERROR+35 sASYNC COMM MODEM FAILURE 
7519 005070 000511 BR CLITST 60 CHECK FOR CLUSTER TERMINALS 
7520 0050 042737 100000 004640 5$: BIC #0S1,EXPMRC ;CLEAR DS] IN EXPECTER CSR 
7521 005100 013737 176610 004636 MOV AMRC , SAVARC READ ASYNC COMM ‘ad —_ SAVE 
7522 005106 023737 004636 004640 CMP SAVMARC ,EXPMRC sCHECK TO SEE IF EQuU 
7523 005114 001402 BEQ 6$ 31f EQUAL THEN CONTINUE 
7524 005116 104035 ERROR+35 i ASYNC COMM MODEM FAILURE 
7525 005120 000475 BR CLITST 60 C HECK FOR CLUSTER Maing TR 
7526 005122 012737 100002 004640 6$: MOV ph age EXPMRC ier EXPECTED ASYNC COMM CSR 
7527 005130 012737 000002 176610 MOV #OTR,AMRC SET CATA TERMINAL READY BY ITSELF 
7528 005136 013737 176610 004636 MOV AMRC , SAVMRC ;READ ASYN COMM CSR AND SAVE IT 
7529 005144 023737 004636 004640 CMP SAVMRC ,EXPMRC sCHECK TO-SEE IF EQUAL 
7530 005152 001402 BEQ 1% 31F EQUAL THEN had orp 
7531 005154 104035 ERROR+35 SASYNC COMM MODEM 


AILURE 
7532 905156 000456 BR CLITST G0 CHECK FOR CLUSTER TERMINALS 
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005262 
005270 
005276 
005300 
005302 
005306 
005312 


005314 
005320 
005322 
005326 
005334 
005336 
005344 
005346 
005354 
00 


005416 
005422 


09-APR-79 08:20 


oe ooooc coo 
SrNnon NNWSY 


So 
WA NAY WWW 
AaaAaNN 


052737 
032777 


104410 


005737 
001002 
000137 


032737 


004537 


000001 


000006 
176610 


012642 


000020 
010000 


016546 
017045 


012612 
006074 
000010 
000006 
000002 


002416 
010000 


014636 
000000 
000001 


000002 
177420 


012642 
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001210 
176610 


015246 
176610 
176614 


001266 
173642 


001246 
176610 
176610 


014636 
001246 


001246 


7$: 


9$: 


TSTAM: 


09-APR- 


4 
79 16:30 * PAGE 79-7 
INITIALIZE THE COMMON TAGS 


CMPB #APTENV,SENV 
BNE 9% 
MOV #<RTS'DTR>, AMRC 
TST AMRC 
JSR R5,SETVEC 
AMRVEC 
AMRSRV 
AMXSRV 
CLR COMCHR 
CLR COMCNT 
MOV AMRB , COMHLD 
BIS #1E ,AMRC 
BIS W1E,AMXC 
JSR RS, TIMER 
ies 
ERROR+23 
CLITST 
BIS #B114,DEVACT 
BIT #B1T12,aSwR 
BEQ CLITST 
SAVEVT 
TYPE ~ACOM 
TYPE “ 
RESTVT 


SEQ 0049 


; CHECK TO SEE IF APT 
F_NOT CONTINUE 

SET APT EXTERNAL LOOPBACK BIT 

: ISSUED TO CLEAR DSI BIT 


;SETUP VECTOR AREA 


CHAR TO BE XMITTED 

:CLEAR COUNT OF CHARACTER PASSES 
CLR OUT ANY PREVIOUS STORED WORD 
SET ASYNC MODEM LOOSE! 


SEE IF COMCNT GOES TO 1 


:ASYNC COMM NOT RESPONDING 
SET ASYNC COMM ACTIVE FLAG 
SKIP TYPEOUT IF NOT SET 
sALLOW 2 TYPEOUTS ON SAME LINE 


sRESTORE VT100 DISPLAY 


SC eA AARAeAeKAAAeee eee eeeeeeeeeeeeeARKeeeKeKekeKeKeRKeeeeeReee 


START CLUSTER TERMINAL #1 


ps, eeeeeeaeereeereeereeeeeeteeeeretetekaeeeeeeeReeeKeeeReeeeKeeee 


CLITST: TST 
BNE 


1$: 


2$: 
3$: 


4$: 


JMP 


CLPRES 

1$ 

TUTST 

goits Sewn 
“deterred 
#OTR,AMRC 


OPTION PRESENT? 
::BR IF YES 
:GO CHECK FOR TUS8 


tog FOR INT.EXT LOOPBACK 
F EXTERNAL GO SET DIR 
INTERNAL SET RTS AND DTR 
GO SEE IF TUS8 ACTIVE 
EXTERNAL = ONLY SET DTR 


Sess CANA BALE CTPARM 3500 BAUD 
DROP TEST 


#81112, $DEVM 
CL2TST 
CTPARM, RO 
#CT1,RO 
#8110, $DEVM 


#MAINT RO 
RO, PARAM 


R5,SETVEC 


:BRANCH IF rES 


GET CLUSTER PARAMETERS 


SELECT CLUSTER TERMINAL a 

:CHECK IF INTERNAL LOOPBAC 

:1F INTERNAL GO LOAD PARAMETER REGISTER 
EXTERNAL CLEAR INTERNAL LOOPBACK BIT 
SETUP CLUSTER PARAMETER 1 


SETUP INTERR VECTORS 
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005426 


005500 
005502 
005510 
005516 


005536 


000300 
014536 
014520 


005037 


005037 


0 
052737 
004537 


052737 
032777 


104410 


014630 
014634 
176502 
000109 
000100 


013156 


MACY11 


014632 
176500 
176504 


001266 
173422 


30A(1052) O9-APR 
INITIALIZE THE C 


TK1V 
TK1S 
TPIS 


B 
BIS 


RESTVT 


L 4 
-79 16:30 PAGE 79-8 


OMMON TAGS SEQ 0050 
EC 
RV 
RV 
TICHR ;CHAR TO BE XMITTED 
TICNT CLEAR COUNT OF CHARACTER PASSES 
TK1B,TIHLD sREAD CHAR (CLEAR STALE DATA) 
WIE, TKIS SET CLUSTER TERM #1 LOOSE! 
WIE, TPIS 
R5, TIMER SEE IF TICNT GOES TO 1 
;CLUSTER TERM 1 NOT RESPONDING 


CL2TST 
#B1T3,DEVACT SET CLUSTER TERMINAL 1 ACTI\~ FLAG 
rag Fae SKIP TYPEOUT IF NOT SET 


CL2 

:ALLOW 3 TYPEOUTS ON SAME LINE 
»CLTERM 
* RUN 

:RESTORE VT100 DISPLAY 
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005540 
005546 


005550 


005660 
005666 


005714 


032737 
001063 


013700 
0 


052737 
004537 


052737 
032777 


104410 
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020000 


014636 
050000 
000002 


000002 
177420 


012642 


014750 


000100 
013156 


000004 
010000 
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001246 


001246 


001266 
173244 


A 4 
O9-APR-79 16:30 PAGE 79-9 
INITIALIZE THE COMMON TAGS 


s,eeeeeererererreereeeretrererereeeeeeeeKeeeeeekaAKeeeeeeteeeeAeeee 


START CLUSTER TERMINAL #2 


soe eeeeeeeeereeeeeeteeeeeererereeereeeeeeeeeAeetereneeeaReeeeeees 


CL2TST: BIT 
BNE 


#B1113,S0EVm :DROP TEST? 
CL3TST 


7:BR IF YES 

MOV CTPARM,RO sGET THE CLUSTER PARAMETER 
BIS #CT2,R0 sSELECT CLUSTER TERMINAL 2 
BIT #B1T1,$DEVM ;CHECK IF INTERNAL LOOPBACK 
BNE 1$ :1F INTERNAL GO LOAD PARAMETER 
BIC #MAINT,RO sEXTERNAL CLEAR INTERNAL LOOPBACK BIT 
MOV RO, PARAM sSETUP CLUSTER TERMINAL 2 
JSR R5,SETVEC sSETUP INTERR VECTORS 

TK2VEC 

TK2SRV 

TP2SRV 
CLR T2CHR ;CHAR TO BE XMITTED 
CLR T2CNT ;CLEAR COUNT OF CHARACTER PASSES 
MOV TK2B, T2HLD ;READ CHAR (CLEAR STALE DATA) 
BIS WIE, TK2S 7SET CLUSTER TERM #2 LOOSE! 
BIS W1lE,TP2S 
JSR RS, TIMER 3SEE IF T2CNT GOES TO 1 

pom 

ERROR+20 ;CLUSTER TERM 2 NOT RESPONDING 
BR CL3TST 
BIS #B11T2,DEVACT 7SET CLUSTER TERMINAL 2 ACTIVE FLAG 
BIT #B11T12,aSWR 7SKIP TYPEOUT IF NOT SET 
BEQ CL3TST 
SAVEVT zALLOW 3 TYPEOUTS ON SAME LINE 
TYPE »CLTERM ; 
TYPE ote 
TYPE 4 
RESTVT sRESTORE VT100 DISPLAY 


SEQ 0051 


N 4 
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CVKOBA.P11 09-APR-79 08:20 INITIALIZE THE COMMON TAGS SEQ 0052 
7654 MH ,eeteneeererereerrererererereerereeeerraeReekeeeeeeeKeeAeeneeeeeee 
7655 : START CLUSTER TERMINAL #3 
rO78 s,eeeeereereerrrrerererrerererereeereAteneeAeeeeKeneeeeAeeeeKerese 
76 
7658 005716 032737 040000 001246 CL3TST: BIT #B1114,$0EVA sDROP TEST? 

#4 005724 001065 BNE TUTST :3BR IF YES 

7661 005726 013700 014636 MOV CTPARM ;RO ;GET THE CLUSTER PARAMETERS 

7662 005732 052700 060000 BIS #CT3,R0 ;SET CLUSTER ate 3 SELECT 
7663 005736 032737 000004 001246 BIT #8112, SDEVM CHECK IF INTERNAL LOOPBACK 

7664 005744 001002 BNE 1$ :1F INTERNAL GO LOAD PARAMETER REGISTER 
7665 005746 042700 000002 BIC #MAINT,RO sEXTERNAL CLEAR INTERNAL. LOOPBACK BIT 
rose 005752 010037 177420 1$: MOV RO, PARAM sSETUP CLUSTER TERMINAL 3 

7668 005756 004537 012642 JSR R5,SETVEC SETUP INTERR VECTORS 

7669 005762 000320 TK3VEC 

7670 005764 014774 TK3SRV 

er 005766 014756 TP3SRV 

7673 005770 005037 015066 CLR T3CHR :CHAR TO BE XMITTED 

7674 005774 005037 015072 CLR T3CNT CLEAR COUNT OF CHARACTER PASSES 
7675 006000 013737 176522 015070 MOV TK3B,T3HLD READ CHAR (CLEAR STALE DATA) 

7676 006006 052737 000100 176520 BIS WIE, 1K3S 3SET CLUSTER TERM #3 LOOSE! 

pert 006014 052737 000100 176524 BIS W1E,1P3S 

7679 006022 004537 013156 JSR RS, TIMER ;SEE IF T3CNT GOES TO 1 

7680 006026 015072 T3CNT 

7681 006030 0600001 1 

7682 006032 104021 ERROR+21 te pees TERM 3 NOT RESPONDING 
7683 006034 000417 BR TUTST CHECK FOR TU 

bee] 006036 052737 000002 001266 BIS #B1T1,DEVACT ;SET CLUSTER TERMINAL 3 ACTIVE FLAG 
7686 006044 032777 010000 175066 BIT #B1T12,aSwR :SKIP TYPEOUT IF NOT SET 

7687 006052 001410 BEQ TUTST ;CHECK FOR TUS8 

7688 006054 104407 SAVEVT ;ALLOW 3 TYPEOUTS ON SAME LINE 
7689 006056 104401 016465 TYPE -CLTERM 

7690 006062 104401 016514 TYPE 13 

7691 006066 104401 017045 TYPE RUN 

7692 006072 104410 RESTVT ;RESTORE VT100 DISPLAY 

re? 

7695 B32 TAPES SAEELELESELELE SEE E EERE REESE R ERE EEE E REESE EE RSE RRR RRR RASS RASS 
7696 :* START TUS8 TESTING 

7697 23 MOPAR EESESELALALEESEESESE SERRE REE SAREE ERR E REE E ERR RRR RRR RRR RRR RASS 
7698 

7699 006074 005737 012620 TUTST: TST TUPRES sCHECK TO SEE IF TUS8 PRESENT 

7700 006100 001002 BNE TUINIT :1F PRESENT CHECK TO SEE IF ACTIVE 
444 006102 000137 0112350 JMP EOP ;TUS8 NOT PRESENT END OF TEST 

7703 0061 005037 007032 TUINIT: CLR UNI TNM ;SET TUS8 UNIT NUMBER TO 0 

7704 006112 032737 000400 001246 BIT #8118, SDEVM :CHECK IF UNIT 0 SELECTED 

7705 006120 001410 BEQ c1F SELECTED START TESTING 

7706 006122 032757 001000 001246 BIT #8119, $DEVM ;CHECK IF UNIT 1 SELECTED 

7707 006130 001402 BEQ 1$ ;1F SELECTED BUMP UNIT NUMBER AND START 
7708 006132 000137 011230 JMP EOP ;NEITHER UNIT SELECTED ABORT TEST 
7709 006136 005237 007032 1$: INC UNI TNM 7SET UNIT TO UNIT 1 


+S ae 





= — = 
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NNSA 
ANNAN SNS 


S832 
=-Co— 
NS 


ou 
ANNNOESNYNONS 


SSasss 
WU OW 


ssssseoesree= 
ASSURRAAGRAAAAGS 


_- 
NOV 


So 
— 
Nm 
w 


177777 
007532 


000002 
007622 


00002C 


000100 
010000 


016452 
017045 


007156 


007136 
006476 


007532 
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007054 
007056 


007030 


007102 


007104 


007064 


177170 


007044 
172574 


09-APR-79 


INITIALIZE THE COMMON T 


2$: 


3$: 


4$: 
5$: 


6$: 


TSTT58: 


TSTTU: 


TURCSR 
the 


URXDB 
#TURDBF , TURPNT 
TURPNT , TUBUF P 
TUS8ER 
#TINIT,OPCODE 


5,SETVEC 


#-1,BRKFLG 
RS, SNDPKT 
TUIMSG 
#2,R0 
R5,GETCHR 
#TCONT, TUCHR 
5$ 

RO 


3$ 
#B1T9, TUSBER 
TURCSR 


TUXCSR 
6 


EOP 

WIE, TURCSR 
PC ,SRAND 
HILOWF 
a 


6 

#8116 ,HILOWF 
#B1T12,aSwWR 
TSTT58 


. TUS8M 
»RUN 


#10. ,BLKCNT 
WIE, TURCSR 
to Fhe a 


TURXD 
#TURDBF , TURPNT 
TURPNT , TUBUF P 


#IE,TURCSR 


TUSBER 


3 
R5,SNDPKT 
FLAG 


= * - ————— 
._ = . & = -_ . = = ~ =, 


8 5 
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SEQ 0055 
sCLEAR RECEIVER TUS8 CSR REGISTER 
sCLEAR TRANSMIT TU58 CSR REGISTER 
CLEAR RECEIVER FLAG IF SET 
;SETUP BUFFER ADDRESS FOR STORING CHAR 


SETUP BUFFER ADDRESS FOR GETTING CHAR 
sCLEAR INTERRUPT SERVICE ERROR WORD 

se5 Se OPCODE "eae or PRINTOUT 

O SETUP TU58 VECTORS 

;TU5S8 RECEIVER VECTOR ADDRESS 
‘1088 RECEIVER INT SERVICE ROUTINE 

;1U58 an bal INT SERVICE ROUTINE 

SET BREAK FLAG 

:G0 INIT THE DEVICE AND SET RECEIVER INT ENA 


; SETUP TO RECEIVE 1 UNKNOWN CHAR FROM TU5S8 
GO GET A CHARACTER FROM TU58 
DEVICE ERROR 
CHECK IF CONTINUE 
:1F CONTINUE THEN DEVICE READY 
;DECREMENT UNKNOWN CHAR COUNTER 
GO GET NEXT CHAR = SHOULD BE CONT 
:SET BIT INDICATING TUS8 INIT PROBLEM 
: CLEAR INTERRUPT ENABLES 


IDEVICE ERROR 

sEX1T TUS8 TEST CAN NOT INIT DEVICE 
CLEAR RECEIVER INT ENABLE 

:GO GENERATE RANDOM TAPE RANGE 

SET TAPE RANGE TO LOWER HALF 

:1f BIT 7=0 THEN RANGE IS LOW 

:G0 START TESTING ON LOW RANGE 

;>SET HIGH RANGE BIT 
:CHECK IF PERFORAMNCE REPORT ENABLED 
:1F NOT SKIP PERFORMANCE REPORT 
SAVE THE CURSOR POSITION 
; TYPE TUS8 RUNNING 


sRESTORE THE CURSOR POSITION 

:SETUP TO DO 10 BLOCKS PER DRIVE 
CLEAR RECEIVER INTERRUPT ENABLE 
CLEAR TRANSMIT INTERRUPT ENABLE 
:CLEAR RECEIVE FLAG IF IT WAS SET 
;SETUP BUFFER ADDRESS FOR STORING CHAR 
SETUP BUFFER ADDRESS 7 ABLE CHAR 


C SRV ERROR FLAG 
CLEAR CONTINUE FLAG COUNTER 
CLEAR DATA PACKET COUNTER 
CLEAR DATA/END PACKET ERROR FLAG 
:GO0 BUILD WRITE COMMAND PACKET 


;SETUP POINTER TO WRITE PACKET ADDRESSES 
GET ADDRESS OF PACKET AND SAVE 

:1F ALL DONE = WAIT FOR END PACKET 

:GO SEND THE COMMAND OR DATA PACKET 
:THIS ADDRESS WILL CHANGE 
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006662 
4 


006740 


011037 


001245 
005737 
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006512 
007426 


007742 


011230 
000001 


011142 
007064 
007062 
007156 
007532 


007742 


011230 
000001 


011142 
007046 


007032 
010000 
016457 
016773 
017074 
001000 


007032 
000040 


000012 
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007074 


007074 


172246 


001246 


001246 
007040 


5 
O9-APR-79 16: 7 “BAGE 79-12 


INITIALIZE THE COMMON TAG 


228: 


3$: 


4$: 


5$: 


6$: 
7$: 


8$: 


9$: 


10$: 


118: 
12$: 


13$: 


148: 


MOV (0). 228 


JSR R5 ,WIDPAK 
«WORD WTPKI 


JSR R5,GETPKT 
4% 


BR 1$ 

BR 5$ 

BR 7$ 
ERROR*+ 36 

JMP EOP 

CMPB #1,SUCCES 
BEQ 

ERROR+ 37 

BR 13% 

JSR R5, SOFTER 
ERROR+41 

CLR TUS8ER 
CLR PKTE 


RR 
JSR RS BLDPKT 
JSR 5. 5; SHOPeI 
JSR nS, ,GETPKT 


BR 8$ 
BR 10$ 
ERROR+ 36 
JMP 


TST haa 
BIT #B1T12,aSWR 
14% 


SAVEVT 

TYPE , TUS8MS 
TYPE ,DRVO 

TYPE »DUN 

RESTVT 

BIT #B1T9,$DEVM 
BNE 16$ 


UNI TNM 
BIT #8115, $DEVM 
TST158 
SUB #10.,BLKNUM 


:GET ADDRESS OF NEXT on one paceti 


THIS ADDRESS WILL CHANGE 
+60 WAIT AND SERVICE PACKET 
VICE ERROR 


: CONT - SEND NEXT ootet ie My ANT 
END PACKET ERROR D 
2 END PACKET NO ERRORS. recteD 


ERROR 
TEXIT TO END OF PASS IF CONTINUED 


sCHECK IF SUCCESS WITH RETRIES 

:1F YES THEN PRINT ERROR AND CONTINUE 
;REPORT FATAL ERROR FOR THIS DRIVE 

:GO TO NEXT DRIVE IF AVAILABLE 

GO CHECK IF SOFT ERROR TO ty REPORTED 
+ REPORT me ERROR om ¢ WRITE 


CLEAR PACKET ERROR FLAG 
:GO BUILD READ PACKET 


:GO SEND THE PACKET 
sADDRESS OF COMMAND PACKET 
:GO WAIT AND SERVICE PACKET 


DATA PACKET = GET NEXT PACKET 
+ END’, PACKET ERROR DETECTE 


N AD 
; ABORT TU58 TESTING ON DEVICE FAILURE 
CHECK IF SUCCESS WITH RETRIES 
:1F YES UPDATE SOFT ERROR AND CONT 
;REPORT FATAL ERROR FOR THIS DEVICE 
GO CHECK FOR NEXT DRIVE 
GO CHECK IF SOFT ERROR TO BE REPORTED 
REPORT SOFT ERROR AND CONT IF ALLOWED 
;DECREMENT BLOCK COUNTER 
1F NOT 0 DO NEXT BLOCK 


;CHECK IF UNIT 1 

31F UNIT 1 THEN EXIT 

:CHECK IF PERFORMANCE REPORT 
;1f NOT THEN SKIP TYPE OUT 
:SAVE THE CURSOR POSITION 
;TYPE TUS8 TAPE UNJT 0 DONE 


sRESTORE THE CURSOR POSITION 

:CHECK IF UNIT 1 SELECTED 

:1F NOT THEN EXIT THE TEST 

:UPDATE THE UNIT NUMBER TO 1 

:CHECK JF SEQUENTIAL BLOCKS 

:1f 0 THEN RANDOM BLOCKS SELECTED 
;BACK UP BLOCK NUMBER FOR TAPE UNIT 1 


SEQ 0054 


5 
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CVKDBA.P11  09-APR=79 08:20 NITIALIZE THE COMMON TAGS SEQ 0055 
7822 006746 042737 177000 007040 BIC #177000,BLKNUM ;MASK TO BLOCK NUMBER RANGES 
7823 006754 000602 BR TST158 [G0 DO TEST ON DRIVE 1 
7824 006756 032777 010000 172154 15%: iT #B1T12,aSuR [CHECK IF PERFORMANCE REPORT 
7825 006764 001410 BEQ 16$ [IF NOT THEN EXIT THE TEST 
7826 006766 104407 SAVEVT “SAVE THE CURSOR POSITION 
7827 006770 104401 016457 TYPE  ,TUS8MS [TYPE TUS8 TAPE UNIT 1 DONE 
7828 006774 104461 017007 TYPE SDRVI 
7829 007000 104401 017074 TYPE 5 DUN 
7830 007004 104410 RESTVi sRESTORE THE CURSOR POSITION 
7831 007006 042737 000100 177170 16%: BIC #1E,TURCSR [CLEAR RECEIVER INT ENABLE BIT 
7832 007014 042737 000100 177174 BIC WIE. TUXCSR [CLEAR TRANSMIT INT ENABLE BIT 
7835 007022 000137 011230 JMP EOP [GO TO EOP ROUTINE 
7835 : COMMAND PACKET 10 TU58 
7837 007026 000000 FLAG: .WORD 0 SHAS PACKET BYTE COUNT AND COMMAND FLAG 
7838 007030 000000 OPCODE: .WORD 0 [HAS OPCODE AND MODIFIER 
7839 007032 000000 UNITNM: .WORD 0 [HAS UNIT NUMBER 
7840 007034 000000 SEQNUM: .WORD 0 “N/A FOR TUS8 
7841 007036 000000 BYTCNT: .WORD 0 “BLOCK BYTE COUNT 
7842 007040 000000 BLKNUM: .WORD 0 [HAS BLOCK MUMBER 
7845 007042 000000 CKSUM: .WORD 0 : COMMAND PACKET CHECKSUM WORD 
7845 007044 000000 HILOWF: .WORD 0 : TAPE RANGE INDICATOR 
7846 007046 000000 BLKCNT: .WORD 0 “NUMBER OF TOTAL BLOCKS LEFT TO EXER 
7848 007050 000000 TUXPNT: .WORD 0 :POINTER TO WRITE PACKET DATA 
7849 007052 000060 TUXCNT: .WORD 0 “NUMBER OF BYTES TO BE TRANSMITTED 
7851 007054 000000 TURPNT: .wORD 0 :POINTER TO RECV BUFFER FOR STORING BYTE 
7852 007056 000000 TUBUFP: .WORD 0 ‘POINTER TO RECV BUFFER FOR GETTING CHAR 
7854 007060 000000 PKTPNT: .WORD 0 :POINTER TO END PACKET IN RECV BUFFER 

*® 

7856 : 5 CeeareocerorerrcerensonecereseegeerereneneeooenessooeronoTeeeet 
7857 
7858 007062 000000 PKTERR: .wORD 0 sEND PACKET ERROR WORD BIT DEFINITIONS 
7860 BIT15=1 READ PACKET 4 FAILED 
7862 “BIT16=1 READ PACKET 3 FAILED 
7863 :BIT13=1 READ PACKET 2 FAILED 
7864 “BITI2=1 READ PACKET 1 FAILED 
7865 
7866 ‘BITI1=1 
7867 “BITIO=1 
hoy | :B1109=1 READ - < 4 DATA PACKETS RECV'D 
en ‘BITO8=1 WRITE = < 4 CONT RECV'D 
7872 : END PACKET ERROR BITS 
7874 ‘BITO7=1 CHECKSUM ERROR 
7875 ;BIT06=1 PACKET BYTE COUNT ERROR 
7876 : 


7877 ;B1105=1 OPCODE ERROR 


CVKDBAO PDT-11.110/130 SYS Sh 
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coe 007064 000000 


7915 007066 000000 


e 5 
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INITIALIZE THE COMMON TAGS 


:BIT04=1 SUCCESS CODE FAILURE 
:B1T03=1 UNIT NUMBER READ INCORRECT 
‘BIT02=1 SEQUENCE NUMBER NOT 0 
*BIT01=1 DATA BYTE COUNT INCORRECT 
:BITOO=1 SUMMARY WORD FAILURE 


SRK ERTEHATEETEAH EEA ARATE TAAAAAAAEAAETRARARAAARAREARAs 


:DEVICE ERROR WORD BIT DEFINITIONS 
SBITIS=1 UNRECOGNIZABLE CHAR RECV'D 


= 
43 
TUSBER: .WORD 0 


SBITI4=1 > & DATA PACKETS RECV'D 
BIT13=1 > 4 CONT RECV'D DURING WRITE 
SBIT12=1 CONT RECV'D DURING READ 
:BIT11=1 DATA RECV'D DURING WRITE 
‘BIT10=1 INIT RECV'D 
‘BIT09=1 ERROR INITTING THE TUS8 
‘BITO8=1 
‘B1T07=1 DEVICE TIMEOUT ERROR 
*BIT06=1 RECVR DONE NOT SET ON INTERRUPT 
BIT0S= RECVR BUFFER OVERFLOWED 
:B1T04=1 XMIT RDY NOT SET ON INTERRUPT 
*BIT03=1 XMIT INTERRUPT WITH IE CLEARED 
B1T02=1 
‘BITO1=1 
:B1T00=1 

*® 

- (PE RBRBAZASLASRAAARRASRAALEARAASARESEE REESE SESE EERE REE RR RR RARASS ESS 

*@ 

*@ 

DPKTER: .WORD 0 ; ACCUMULATED DATA PAKET ERROR WORD 

[DATA PACKET 4 ERROR BITS 
SBIT14=1 PACKET CHECKSUM FAILURE 
SBIT13=1 DATA CHECKSUM FAILURE 
‘BIT12=1 PACKET BYTE COUNT INCORRECT 
“DATA PACKET 3 ERROR BITS 
“BITI1=1 PACKET CHECKSUM FAILURE 
*BIT10=1 DATA CHECKSUM FAILURE 
:BIT09=1 PACKET BYTE COUNT INCORRECT 
:DATA PACKET 2 ERROR BITS 
*BIT08=1 PACKET CHECKSUM FAILURE 
*B1T07=1 DATA CHECKSUM FAILURE 
“BITO6=1 PACKET BYTE COUNT INCORRECT 
“DATA PACKET 1 ERROR BITS 
*BIT05=1 PACKET CHECKSUM FAILURE 
‘BIT04=1 DATA CHECKSUM FAILURE 


SEQ 0056 
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007072 


007074 


007102 
007104 


007106 
007114 


007116 
007120 
007122 
007124 


007126 


007134 


007136 


007150 


007152 
007155 


007156 
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000000 
000009 


000000 
000000 
000000 


000000 
000000 


000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 


000000 
000000 


000000 
000000 


067026 


000000 


000 
004 


010046 


042737 
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000 004 


000005 
000040 001246 


007040 
177000 0070490 
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INITIALIZE THE COMMON TAG 


-f 
. 
oe 

-* 
e 


CONTFL: 
DATAFL: 


SUCCES: 
BYTECT: . 
SUMARY: 


” BRKFLG: 


TUCHR: 


WRKSUM: . 
WRKERR: . 
WRKPNT: . 
DERFLG: . 


DATPNT: 


DERTBL: . 


ooonoo oOo COO CO 


oooo cCOCOoO°o 
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3B1103=1 PACKET BYTE COUNT INCORRECT 


st#ereeerereerrererererererrrererereeeeeaeteeneaeeeerekeneeeeeAeeees 


NUMBER OF CONT FLAGS RECEIVED FROM TU58 
NUMBER OF DATA FLAGS RECEIVED FROM TU58 


;DATA PACKET SUCCESS CODE 
;DATA PACKET DATA WORD COUNT 
;DATA PACKET SUMMARY WORD 


SET WHEN INITTING DEVICE 
;BYTE READ FROM RECEIVE BUFFER 


POINTER TO WRITE CHECKSUM TABLE 
:POINTER TO DATA PACKET ERROR FLAGS 
:POINTER TO DATA PACKET ADDRESS TABLE 
;USED TO SET PKTERR WHEN DATA PACKET ERR 


;POINTER TO DATA PACKET 1 STARTING ADD 
POINTER TO DATA PACKET 2 STARTING ADD 
POINTER TO DATA PACKET 3 STARTING ADD 
;POINTER TO DATA PACKET 4 STARTING ADD 


ERROR WORD FOR DATA PACKET 1 
ERROR WORD FOR DATA PACKET 2 
ERROR WORD FOR DATA PACKET 3 
ERROR WORD FOR DATA PACKET 4 


THE FOLLOWING TABLE CONTAINS POINTERS FOR WRITE PACKETS 


WRITBL: 
WRIPNT: 


TUIMSG: 


- WORD 
- WORD 


-BYTE 


FLAG 
wIPK1 
WwIPK2 
WIPK3 
WIPK4 
0 


0,0, TINIT,TINIT 


:ADDRESS OF COMMAND PACKET 
sADDRESS OF WRITE PACKET 1 
ADDRESS OF WRITE PACKET 2 
sADDRESS OF WRITE PACKET 3 
ADDRESS OF WRITE PACKET 4 
; TABLE TERMINATOR 


peeeeerererrerereereeerererereeeeeaeeeeee eee eee ee 


1 a THE FOLLOWING ROUTINE WILL BUILD THE PACKETS SPECIFIED BY THE 
:*FUNCTION SELECTED. 


i eeneeenererrreererereeeeeeertrereeeeeeeeereeeertentererereerenet 


BLDPKT: 


MOV 
CMP 
BNE 
BIT 


RO,-(SP) 
MTWRITE,(R5) 
#B115,SDEVM 
5% 


BL KNUM 
#177000,BLKNUM 


;SAVE ROUTINES WORKING REGISTER 
; CHECK IF FUNCTION = Pa E 

:1F NOT WRITE - BRAN 

:CHECK IF SEQUENTIAL BLOCKS SELECTED 
:1F NOT SELECTED GENERATE RANDOM NUMBER 
; INCREMENT BLOCK NUMBER 

:MASK TO BLOCK NUMBER RANGE 


SEQ 0057 
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000205 


026336 


000040 


026336 
026436 
000400 


000007 
000400 


007356 


177400 


MACY11 


007027 
007026 


001246 


007030 
007036 


007030 


G 5 
16:30 PAGE 79-16 


30A(1052) 09-APR-79 

INITIALIZE THE COMMON TAGS 
BR 1$ :GO BUILD REST OF PACKET 

5$: JSR PC, SRAND [GENERATE RANDOM BLOCK NUMBER 
MOV SLONUM, RO [GET A RANDOM NUMBER 
BIC #177100,R0 [MASK TO LOW RANGE BLOCK NUMBER 
BIS HILOWF , RO ?SET BLOCK TO HIGH OR LOW RANGE 
MOV RO, BLKNUM :SAVE THE BLOCK NUMBER IN PACKET 

1$ MOVB  #TMSG,FLAG#1 : SETUP PACKET BYTE COUNT 
MOVB  #TCMDPK,FLAG © :SETUP COMMAND PACKET INDICATOR 
MOV (R5) , OPCODE :GET UTME FUNCTION AND SAVE 
BIT #8115, $DEVM [CHECK IF SEQUENTIAL BLOCK TESTING 
BNE 2$ [IF SEQUENTIAL DO NOT GENERATE RANDOM MODIFIER 
JSR PC, SRAND [GENERATE RANDOM MODIFIER 
TSTB SLONUM [IF BIT 7=0 THEN NORMAL READ/WRITE 
BPL 2$ [BRANCH IF NORMAL FUNCTION 
BIS #B118,0PCODE —;SET MODIFIER 

2$ CLR SEQNUM [CLEAR THE SEQUENCE NUMBER 
MOV #TWC,BYTCNT [SET BYTE COUNT TO 512 BYTES (1 BLOCK) 
CMP #TDIAGN,(R5)*  :CHECK IF FUNCTION WAS DIAGNOSE 
BNE 3$ [IF NOT GO BUILD PACKET CHECKSUM 
BIC WBITB,OPCODE :CLEAR MODIFIER FOR FUNCTION 
CLR BYTCNT SCLEAR DATA BYTE COUNT 
CLR BLKNUM [CLEAR BLOCK NUMBER NO TAPE MOTION 

3$: JSR R5,BLDCHK :GO BUILD CHECKSUM FOR COMMAND PASKET 
“WORD FLAG [ADDRESS OF PACKET TO BE CHECKSUMMED 

4$: MOV (SP)+,RO “RESTORE WORKING REGISTER 
RTS R5 [RETURN BACK TO THE TEST 


,;eeereeeeeeeeeekeeeeeeeeeeeeee eee eee eRe eeeeereee 


: ROUT INE TO BUILD COMMAND AND DATA PACKET CHECKSUMS 


| NNN nNENNNAeANNseNmNNEiNMaNnaaneNAENNn 


BLDCHK: MOV RO,-(SP) 3; SAVE ROUTINE WORKING REGISTERS 
MOV R1,-(SP) i 
MOV R2,-(SP) : 
MOV (R5)+,R0 3;GET ADDRESS OF PACKET TO CHECKSUM 
MOV (RO) ,R2 ;GET FLAG AND PACKET BYTE COUNT 
SWAB R2 ;SWAP FLAG WITH PACKET BYTE COUNT 
BIC #177400,R2 :DROP FLAG BYTE 
ASR R2 sDIVIDE BY 2 FOR WORD COUNT 
INC R2 ;ADD IN FLAG AND PACKET BYTE COUNT 
CLR RI ;USE R1 TO CALCULATE CHECKSUM 
1$ ADD (RO)+,R1 :BUILD CHECKSUM VALUE 
ADC R1 300 END AROUND CARRY 
DEC R2 > CHECKSUM FINISHED? 
BNE 1$ ‘IF NOT DO NEXT BYTE 
MOV R1, (RO) ;SAVE CHECKSUM IN PACKET 
MOV (SP)+,R2 RESTORE WORKING REGISTERS 
MOV (SP)+,R1 : 
MOV (SP)+,RO 3 
RTS R5 sRETURN BACK TO CALLING ROUTINE 


sper eerererererererererereeteretereeteeeneeeeeeeeeeeeeteenereeene 


; THIS ROUTINE GENERATES RANDOM DATA AND BUILDS WRITE DATA PACKETS 


sp ettatereerereeeterererereeereeeeereneteneneeeereneteeteteteeee 


SEQ 0058 


5 
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09-APR-79 08:20 INITIALIZE THE COMMON TAGS SEQ 0059 
8045 
8046 007426 010046 WIDPAK: MOV RO,-(SP) sSAVE ROUTINES WORKING REGISTERS 
8047 007430 010146 MOV R1,-(SP) : 
8048 007432 010246 MOV R2,-(SP) : 
8049 007434 010346 MOV R3,-(SP) : 
8050 0074 010446 MOV R4,-(SP) 
8051 007440 012500 MOV (R5)+,RO [GET ADDRESS OF PACKET TO BUILD 
8052 007442 012702 000041 MOV #TASIZ/441,R2  ;SETUP PACKET WC/2 +1 FOR FLAG WORD 
007446 012710 100001 MOV #100001, (RO) ;SAVE DATA FLAG AND PACKET BYTE COUNT 
8054 007452 005001 CLR R1 :CLEAR WORKING CHECKSUM 
8055 007454 012704 000001 MOV #1,R4 ;SETUP TO ADD FLAG AND BYTE COUNT TO CKSUM 
8056 007460 000407 BR ;GO0_ ADD FLAG AND BYTE COUNT TO CKSUM 
8057 007462 012703 026440 1$: MOV #SLONUM+2 ,R3 sSETUP ADDRESS OF RANDOM NUMBER +2 
8058 007466 012704 000002 MOV #2,R4 ;SETUP WORKING COUNTER FOR 2 RANDOM #°S 
8059 007472 004737 026336 JSR PC ,SRAND ;GENERATE TWO RANDOM NUMBERS 
8060 007476 014310 2$: MOV =(R3), (RO) ;SAVE RANDOM NUMBER IN MEMORY 
8061 007500 062001 3$: ADD (RO)+,R1 ;ADD NUMBER TO CHECKSUM 
8062 007502 005501 ADC R1 D0 END AROUND CARRY 
8063 007504 005304 DEC R4 ;DECREMENT RANDOM WORKING COUNTER 
8064 007506 0013735 BNE 2$ :1f NOT 0 GET NEXT RANDOM NUMBER 
8065 007510 005302 DEC R2 ;DECREMENT PACKET WC/2 +1 
8066 007512 001363 BNE 1$ :GO GET NEXT TWO WORDS 
8067 007514 010120 MOV R1,(RO)+ SAVE THE CHECKSUM IN MEMORY 
8068 007516 012604 MOV (SP)+,R4 RESTORE THE WORKING REGISTERS 
8069 007520 012605 MOV (SP)+,R3 : 
8070 007522 012602 MOV (SP)+,R2 : 
8071 007524 012601 MOV (SP)+,R1 : 
8072 007526 012600 MOV (SP)+,RO : 
8073 007530 000205 RTS R5 RETURN BACK AND WAIT FOR FLAG BYTE 
8075 
8076 ppeteeeeeereeeretereeerereteeererereeeeeReAAeAeeeeeRe AAA e REA Eee 
8077 [*THE FOLLOWING ROUTINE WILL SETUP POINTERS TO THE COMMAND OR DATA 
8078 :*PACKET TO Be SENT. CALL PLUS 2 CONTAINS THE POINTER TO THE PACKET TO 
8079 :*BE SENT. THE TUS8 XMIT INTERRUPT ENABLE BIT WILL BE SET ON EXIT. 
8080 ppeeeeererererreeereeereeeereeeeeeeeeeeARAR AAR eA TAe ee ReR Ae T eee 
8081 
8082 007532 010046 SNDPKT: MOV RO,-(SP) SAVE WORKING REGISTER 
8083 007534 017500 000000 MOV a(R5),RO :GET FLAG AND BYTE COUNT WORD 
8084 007540 000300 SWAB RO sEXCHANGE BYTES 
8085 007542 042700 177400 BIC #177400,R0 :CLEAR THE FLAG BYTE 
8086 007546 062700 000004 ADD #4,R0 ;ADD FLAG AND CHECKSUM WORDS 10 BYTE COUNT 
8087 007552 010037 007052 MOV RO, TUXCNT SAVE THE TOTAL PACKET BYTE COUNT 
8088 007556 012537 007050 MOV (R5)+, TUXPNT SETUP THE TRANSMIT POINTER TO PACKET 
8089 007562 012600 MOV (SP)+,RO sRESTORE THE WORKING REGISTER 
8090 007564 005737 007102 TST BRKFLG CHECK IF BREAK BEING PERFORMED 
8091 007570 001410 BEQ 1$ ;1F_ NOT THEN SET IEF BIT 
8092 007572 052737 000001 177174 BIS #BREAK , TUXCSR SET THE BREAK BIT IN — CSR REGISTER 
8093 007600 005737 177172 TST TURXDB ;CLEAR RECEIVE FLAG IF ANY SET 
8094 007604 052737 000100 had BIS #1E,TURCSR ;SET RECEIVER INT ENABLE “BIT 
8095 007612 052737 000100 177174 1%: BIS WIE, TUXCSR SET TRANSMIT INTERRUPT ENABLE 
8096 007620 000205 2$: RTS R5 ;RETURN BACK TO THE TEST 
5098 ; peeeeeeeeeereteeeerrrereeeeteeeeteeeeeeeeeee eee te eReee eee TTT 
8099 [*THE FOLLOWING ROUTINE WILL GET A CHARACTER FROM THE TUS8 READ MEMORY 


8100 7 *BUFFER AND SAVE IT IN LOCATION TUCHR. IF THE ROUTINE DETECTS A FAILURE 
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:*IN THE RECEIVE/TRANSMIT INTERRUPT SERVICE ROUTINES, THE wir: WILL 
:*RETURN TO CALL#2, OTH ERWISE, THE RETURN IS TO CALL44. IF A TIMEOUT 
;*ERROR, RETURN 1S ALSO TO CALL#2. 


MPPITTTTIITITITITTITITTTITITITTITTITITITIT TTT TTT TTT TTT TTT Tee 


GETCHR: MOV RO,-(SP) SAVE THE WORKING REGISTER 
MOV R1,-(SP) 
R2,-(SP) 
007056 . TUBUF P ,RO :GET ADDRESS OF READ BUFFER POINTER 
R1 ; SETUP TIMEOUT REGISTERS 
000021 #17. ,R2 


007064 : TUS8ER "CHECK IF ANY ERRORS DETECTED BY INT SRV 
3$ :1F ERROR RETURN TO CALL*2 
007054 TURPNT ,RO :CHECK IF CHARACTER RECEI vED 
2$ :1F NOT GO CHECK FOR DEVICE TIMEOUT 
007104 (RO)+, TUCHR :GET THE CHARACTER FROM MEMORY 
007056 RO, TUBUFP [UPDATE MEMORY BUFFER POINTER 
4$ ;RETURN CALL44 = CHAR RECEIVED 
R1 sDECREMENT 1ST TIMEOUT COUNTER 
1$ sWAIT AGAIN IF NOT 0 
001200 SDEVCT : INDICATE TO APT PROGRAM STILL RUNNING 
R2 :CHECK IF 2ND COUNTER OVERFLOWED 
1$ :1F NOT GO WAIT AGAIN 
000200 007064 #B117,TUS8ER :SET TIMEOUT ERROR BIT 
177170 3$: TURCSR CLEAR BOTH RECV AND XMIT CSR REGISTERS 
177174 TUXCSR 
5$ sRESTORE WORKING REGISTERS RETURN CALL*2 
: (R5)+ ;BUMP POINTER PAST DEVICE FAILURE ADDRESS 
001200 SDEVCT : INDICATE TO APT PROGRAM STILL RUNNING 
(SP)+,R2 sRESTORE THE WORKING REGISTERS 
(3P)* RO 
+, 
007740 000205 R5 RETURN BACK TO PROGRAM 


PEC ITTTIiiiriiiiiiiiiii titi iii iit, 
;*THE FOLLOWING ROUTINE WILL READ A CHARACTER AND DETERMINE WHAT 
:*FUNCTION IS TO BE PERFORMED. THE PROGRAM WILL THEN GO TO THE FUNCTION 
sROUTINE AND SERVICE IT. THE RETURNS ARE LISTED BELOW FOR THE FUNCTION. 
6 


:*CALL+2 DEVICE ERROR 

7 *CALL+4 (READ)DATA PACKET/ (WRITE) CONT 
: *CALL+6 END PACKET ERROR DETECTED 
;*CALL+10 END PACKET NO ERRORS DETECTED 


sp eeeereeeeeaeeeeereeereeeereeeeeekeneKeeeeeeKeeeeeeeeeeteeeeeeee 
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007742 010046 GETPKT: MOV RO,-(SP) SAVE THE WORKING REGISTER 
007622 JSR R5,GETCHR GO GET A CHARACTER FROM BUFFER 

B 6$ : DEVICE ERROR RETURN CALL+2 
007104 TUCHR ,RO READ 


000020 #TCONT,RO 


NE 23 
000003 007030 #TWRITE ,OPCODE CHECK IF FUNCTION WAS WRITE 
IF WRITE = COUNT THE NUMBER OF CONT'S 
010000 007064 WB1T12,TUSBER SET BIT INDICATING CONT RECV'D DURING READ 
B 6$ :DEVICE ERROR RETURN CALL+2 
010004 005237 007070 : CONTFL ; INCREMENT CONTINUE FLAG. COUNTER 


PAPA & 
OwFwnr—-oo 
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8157 010010 122737 000004 007070 CMPB #4, CONTFL ;CHECK IF MORE THEN 4 CONT’ o 
8158 010016 103045 BHIS 9% :1F 4 OR LESS RETURN TO CAL 
8159 010020 052737 020000 007064 BIS #81713, TUS8ER :SET BIT INDICATING MORE THEN 4 CONT'S 
8160 010026 000432 .. BR 6$ ZDEVICE ERROR RETURN CALL+2 
8161 010030 122700 000004 28: CMPB #TINIT,RO ; CHECK 1F INIT CODE 
8162 010034 001004 BNE 3$ :1F NOT GO CHECK TO SEE IF DATA PACKET 
8163 010036 052757 002000 007064 BIS #81110, TUS8ER :SET BIT INDICATING INIT RECEIVED 
8164 010044 000423 BR 6$ DEVICE ERROR RETURN CALL+2 
8165 010046 122700 000001 3$: CMPB #TDATA,RO sCHECK IF DATA PACKET 
8166 010052 001004 BNE 4% :1F NOT GO CHECK FOR END PACKET 
8167 010054 004537 010140 JSR R5,DATPKT 60 READ IN THE PACKET 
8168 010060 000415 BR 6$ :DEVICE ERROR RETURN CALL+2 
8169 010062 000423 BR 9$ sNO DEVICE FAILURE RETURN CALL +4 
8170 010064 122700 000002 4$: CMPB #TCMDPK ,RO sCHECK IF END PACKET 
8171 010070 001404 BEQ 5$ :1f END PACKET GO READ IT 
8172 010072 052737 100000 007064 BIS #81115, TUS8ER :SET BIT INDICATING UNRECOGNIZABLE CHAR 
8173 010100 000405 BR 6$ sDEVICE FAILURE RETURN CALL+2 
8174 010102 004537 010512 5$: JSR R5,ENDPKT :GO READ IN THE END PACKET 
8175 010106 000402 BR 6$ sDEVICE FAILURE RETURN CALL+2 
8176 010110 000407 BR 8$ ;PACKET ERROR RETRETURN CALL+6 
8177 010112 000405 BR 7$ 3NO ERRORS RETURN CALL+10 
8178 010114 005037 177170 6$: CLR TURCSR ;CLEAR CSR REGISTERS 
8179 010120 005037 177174 CLR TUXCSR 3 
8180 010124 000403 BR 10$ :DEVICE ERROR RETURN CALL+2 
8181 010126 005725 7$: TST (R5)+ :END PACKET RETURN NO ERRORS CALL+10 
8182 010130 005725 8$: TST (R5)+ sEND PACKET ERROR DETECTED RETURN CALL*+6 
8183 010132 005725 9$: TST (R5)¢ ;DATA PACKET OR CONT RETURN CALL+4 
8184 010134 012600 10$: MOV (SP)+,R0 sRESTORE THE WORKING REGISTER 
aie 010136 000205 RTS R5 sRETURN BACK TO PROGRAM 
8187 52 MARABEBSBAAAALZALASLASLALALLESEEESELAE ALES ESTEE EEE ESE EEE EET ESET SEER 
8188 ;*THE FOLLOWING ROUTINE WILL READ AND CHECK DATA PACKETS sty es FROM 
2189 :*TU58. IF AN ERROR IS DETECIED, LOCATION PKTERR WILL INDICATE A DATA 
8190 > *PACKET FAILURE FOR THE PACKET RECEIVED. TABLE DERTBL WILL CONTAIN THE 
8191 :*ERROR BITS FOR THE FAILING PACKET. TABLE DATPNT WILL CONTAIN THE 
8192 :*STARTING ADDRESSES OF THE DATA PACKETS AS STORED IN THE MEMORY BUFFER. 
ines :*B1T DEFINITIONS OF DATA PACKET ERROR FLAG AS STORED IN DERTBL ARE: 
4 3* 
8195 3*B1T14=1 PACKET CHECKSUM FAILURE 
8196 3*B1]113=1 DATA CHECKSUM FAILURE (READ NOT EQUAL WRITE CHECKSUM) 
Hed 3*B1T12=1 PACKET BYTE COUNT READ NOT EQUAL EXPECTED 
*@ 
8199 3 *RETURNS 
8200 i 
8201 :*CALL+2 DEVICE ERROR 
335) 7 *CALL+4 GOOD RETURN (PACKET ERRORS MAY BE PENDING) 
** 
at S eeeeeeeeeererteetteerteetrerteeeteeeerenereeerenereeererereenee 
8205 
8206 010140 010046 DATPKT: MOV RO,-(SP) ;SAVE THE WORKING REGISTERS 
8207 010142 010146 MOV R1,-(SP) : 
8208 010144 010246 MOV R2,-(SP) ; 
8209 010146 010346 MOV R3,-(SP) 3 
8210 010150 010446 MOV R4,-(SP) , 
8211 010152 122737 000002 007030 CMPB #TREAD ,OPCODE sCHECK IF FUNCTION WAS READ 
8212 010160 001404 BEQ - 1$ :1F FUNCTION IS READ THEN CONTINUE 
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8213 010162 052737 004000 007064 BIS #B1T11,TUS8ER ;SET BIT INDICATING DATA PACKET DURING WRITE 
8214 010170 000542 BR 128 RETURN CALL42 DEVICE ERROR 
8215 010172 005737 007072 1$: TST DATAFL + CHECK IF FIRST PAC 
8216 010176 001025 : BNE 2$ c1F NOT FIRST TIME CONTINUE 
8217 010200 012737 007140 007106 MOV #URTPNT ,WRKSUM TABLE POINTER TO WRITE PACKET ADDRESSES 
8218 010206 012737 007126 007110 MOV #DERTBL,WRKERR ;TABLE POINTER TO THIS PACKETS ERROR 
8219 010214 012757 007116 007112 MOV #DATPNT ,WRKPNT TABLE POINTER TO PACKETS oer paee ADDRESS 
8220 010222 012737 010000 007114 MOV WB1T12,DERFLG ;SET PACKET ERROR FLAG TO 1ST PACKET 
8221 010230 012700 007126 MOV #DERTBL RO 3; SETUP TO CLEAR DATA PACKET ERROR TABLE 
8222 010234 012701 000004 MOV #4,R1 
8223 010240 005020 208: CLR (RO)+ TCLEAR THE LOCATION IN TABLE 
8224 010242 005301 DEC R1 :DECREMENT TABLE COUNTER 
8225 010244 001375 BNE 20% NO NEXT LOCATION IF NOT O 
8226 010246 005037 007066 CLR DPKTER CLEAR ACCUMULATED PACKET a WORD 
8227 010252 005237 007072 28: INC DATAFL : INCREMENT DATA PACKET COUNTER 
8228 010256 022737 000004 007072 CMP #4 ,DATAFL :CHECK IF 4 DATA PACKETS OR LESS 
8229 010264 103004 BHIS 3$ :CONTINUE IF 4 OR LESS 
8230 010266 052737 040000 007064 BIS WB1T14,TUSBER ;MORE THEN & DATA PACKETS RECEIVED 
8231 010274 000500 BR 12$ RETURN CALL¢2 DEVICE ERROR 
8232 010276 013700 007056 3$: MOV TUBUF P ,RO :GET UPDATED BUFFER POINTER 
8233 010302 005300 DEC RO :BACK UP TO START OF DATA PACKET 
8234 0103 010077 176602 MOV RO, @WRKPNT SAVE DATA PACKET POINTER IN TABLE 
8235 010310 005003 CLR R3 ;CLEAR WORKING WORD ‘ 
8236 010312 005004 CLR R4 SET CHECKSUM INITIALLY TO 0 
8237 010314 012701 000101 MOV WTMS1Z+2/2,R1 ;SETUP PACKET EXPECTED WC -1 
8238 010320 012702 000002 MOV #2,R2 :SETUP BYTE COUNT FOR READING A WORD 
8239 010324 000406 BR 6$ G0 ADD CHARACTER READ TO CHECKSUM 
8240 010526 012702 000002 4$: MOV #2,R2 ;SETUP BYTE COUNT FOR READING A WORD 
8241 010332 005003 CLR R3 :CLEAR THE WORKING WORD 
8242 010334 004537 007622 5$: JSR R5,GETCHR GO GET A CHARACTER FROM THE BUFFER 
8243 010340 000456 BR 12$ DEVICE ERROR RETURN CALL+2 
8244 010342 152003 6$: B1SB (RO)+,R3 :ADD BYTE TO WORKING WORD 
8245 010344 000303 SAB R3 EXCHANGE BYTES 
8246 010346 005302 DEC R2 :DECREMENT WORD BYTE COUNT 
8247 010350 001371 BNE 5$ :1F NOT WORD GET NEXT BYTE 
8248 010352 005301 DEC R1 ;DECREMENT PACKET WC 
8249 010354 100403 BMI 7$ :1F MINUS THEN CHECKSUM READ IS IN R3 
8250 010356 060304 ADD R3,R4 ADD WORD TO CHECKSUM 
8251 010360 005504 ADC R4 ;ADD END AROUND CARRY 
8252 010362 000761 BR 4$ GO READ NEXT WORD 
8253 010 005001 7$: CLR R1 CLEAR WORKING ERROR REGISTER 
8254 010366 020304 CMP R3,R4 :COMPARE CHECKSUM CALCULATED WITH READ 
8255 010370 001402 BEQ 8$ 1 EQUAL THEN CONTINUE 
8256 010372 052701 040000 BIS #B1T14,R1 SET PACKET CHECKSUM or BIT 
8257 010376 017702 176504 8$: MOV @WRKSUM ,R2 GET ADDRESS OF WRITE PACKET 
8258 010402 026203 000202 CMP TMS1Z#2(R2),R3 :CHECK WRITE CHECKSUM WITH CNE READ 
8259 010406 001402 BEQ 9$ :1F EQUAL THEN CONTINUE 
82 010410 052701 020000 BIS #B1T15,R1 SET DATA CHECKSUM FAILURE 
8261 010414 017700 176472 9$: MOV QWRKPNT RO :GET STARTING ADDRESS OF DATA PACKET 
8262 010420° 1057 TSTB (RO) + :BUMP POINTER TO PACKET BYTE COUNT 
8265 010422 122710 000200 CMPB @TMSIZ, (RO) CHECK DATA PACKET BYTE COUNT 
8264 010426 001402 BEQ 108 :1F EQUAL THEN CONTINUE 
8265 010430 052701 010000 BIS #B1T12,R1 :SET PACKET BYTE COUNT ERROR BIT 
8266 010434 010177 176450 10$: MOV R1 ,@WRKERR SAVE ERROR WORD IN ERROR TABLE 
8267 010440 001403 BEQ 11$ ;1F_ NO ERRORS DO NOT SET PKTERR ~ 
8268 010442 053737 007114 007062 BIS DERFLG,PKTERR ;SET ERROR INDICATOR FOR THIS PACKET 
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8269 010450 012702 000002 118: MOV #2,R2 sSETUP POINTER UPDATE COUNTER 
8270 010454 060237 007106 ADD R2 ,WRKSUM sUPDATE WRITE PACKET TABLE Aya bt 
8271 010460 060237 7110 ADD R2,,WRKERR UPDATE DATA PACKET ERROR POINTER 
8272 010464 060237 007112 ADD R2,WRKPNT UPDATE DATA PACKET yt TABLE POINTER 
8275 010470 006337 007114 ASL DERFLG UPDATE PACKET ERROR FLAG 
8274 010474 005725 TS] (R5)+ ;BUMP POINTER PAST DEVICE ERROR RETURN 
8275 010476 012604 12$: MOV (SP)+,R4 sRESTORE THE ROUTINES WORKING REGISTERS 
8276 010500 012603 MOV (SP)+,R3 : 
8277 010502 012602 MOV (SP)+,R2 : 
8278 010504 012601 . MOV (SP)+,R1 ; 
8279 010506 012600 MOV (SP)+,RO ; 
asset 010510 000205 RTS R5 sRETURN BACK TO PROGRAM 
8282 sp eeeeeneererrererererertererereeeereeeeeeeeteneeeeeeeeeeeeeee 
8285 S*THE FOLLOWING ROUTINE WILL RECEIVE AND CHECK THE END PACKET RECEIVED 
8284 s*FROM THE TUS58. LOCATION PKTERR WILL CONTAIN PACKET ERROR INFORMATION 
8285 scm EXIT FROM THIS ROUTINE. 
8286 
8287 :*RETURN 
8288 
8289 #CALL#2 DEVICE ERROR 
8290 3 *CALL+4 END PACKET ERROR DETECTED 
a399 5 eCALL +6 END PACKET NO ERROR DETECTED 
Bees :SLOCATION PKTERR BIT DEFINITIONS 
8295 SeBITI5=1 READ PACKET 4 FAILED 
8296 :*BIT14=1 READ PACKET 3 FAILED 
8297 :*B1T13=1 READ PACKET 2 FAILED 
8298 :*BIT12=1 READ PACKET 1 FAILED 
8299 :*B1T11=1 NOT USED 
8300 :*B1T10=1 NOT USED 
£301 ;*B1T09=1 READ OPERATION = 4 DATA PACKETS NOT RECEIVED 
ity ;*B1T08=1 WRITE OPERATION = 4 CONTINUES NOT RECEIVED 
-@ 
8304 3 END PACKET ERROR BITS 
8305 be 
8306 3*B1T07=1 CHECKSUM ERROR 
8307 ;*B1106=1 PACKET BYTE COUNT ERROR 
8308 ;*B1T05=1 OPCODE ERROR 
8309 3*B1T04=1 SUCCESS CODE FAILURE 
10 3*B1T03=1 UNIT NUMBER READ INCORRECT 
8311 ;*B1T02=1 SEQUENCE NUMBER NOT 0 
8312 ;*B1T01=1 DATA BYTE COUNT WORD INCORRECT 
aeiz ;*B1T00=1 SUMMARY WORD FAILURE 
:f 
8315 MIIIIITII IIT iitiiiiiiitiiiiiiiiiii tii ii iti 
8316 
8317 010512 010046 ENDPKT: MOV RO,-(SP) sSAVE ALL WORKING REGISTERS 
8318 010514 010146 MOV R1,-(SP) : 
8319 010516 010246 MOV R2,-(SP) ; 
8320 010520 010346 MOV R3,-(SP) : 
8321 010522 010446 MOV R4,-(SP) ; 
8322 010524 013700 007056 MOV TUBUF P ,RO GET UPDATED BUFFER POINTER 
83235 010530 005300 DEC RO ;BACK UP TO START OF END PACKET 
8324 010532 010037 007060 MOV RO, PKTPNT :SAVE END PACKET POINTER 
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005003 R3 CLEAR WORKING WORD 

0050 R4 :SET CHECKSUM INITIALLY TO 0 
000006 #TASG+2/2,R1 SETUP PACKET EXPECTED WC -1 
000002 gg Re ; 


000002 : — 


007622 : R5 ,GETCHR A BYTE FROM MEMORY 
178 DEVICE ERROR RETURN CALL+2 
ADD BYTE TO WORKING WORD 
EXCHANGE IT 
:DECREMENT WORD BYTE COUNT 
:G0 GET 2ND BYTE OF WORD 
;DECREMENT — a WORD COUNT 
z1F MINUS THE WC = CHECKSUM IN R3 
ADD WORD READ TO CHECKSUM 
:ADD END AROUND CARRY 
G0 GET NEXT TWO BYTES FROM MEMORY 
CLEAR PACKET ERROR REGISTER 
CHECK FOR CHECKSUM ERROR 
$ :1F GOOD THEN CONTINUE 
000200 P SET PACKET CHECKSUM ERROR BIT 
007060 : PKTPNT RO GET POINTER TO PACKET 
(RO)+ ;BUMP POINTER TO PACKET " COUNTER 
007027 FLAG+1, (RO) + :CHECK PACKET BYTE COUN 
6$ :1F OK THEN CONTINUE 
000100 l #B1T6,R1 ;SET PACKET BYTE COUNT ERROR BIT 
000100 : #TENDPK,(RO)+  ;CHECK OPCODE TO BE END PACKET 
7$ :1F_ 1T IS THEN CONTINUE 
000040 #B1T5,R1 SET NOT END PACKET OPCODE ERROR BIT 
007074 : (RO)+, SUCCES ; CHECK een eee ry BYTE TO BE 0 
8$ s1F SUCCESS C = a — CONT I NUE 
000020 1 #B1T4,R1 SET SUCCESS CODE ERROR BIT 
007032 : UNITNM, (RO) + :CHECK UNIT NUMBER TO 0 BE = 
9$ :1F SAME UNIT NUMBER ~ CONT 
000010 #B1T3,R1 SET UNIT NUMBER ERROR BIT 
: RO)+ :BUMP POINTER TO SEQUENCE NUMBER 
; CHECK LOW BYTE TO BE 0 
108 F SEQ NUMBER = 0 THEN BRANCH 
000004 ] SET SEQUENCE NUMBER ERROR BIT 
(RO)+ ; CHECK HIGH ah OF SEQUENCE NUMBER 


o328 


peeseesess 
Foo £F&NO 


SONS 


ssereceee 
NONSOS 


000004 #81T2,R1 
007076 : BYTECT E E OF D 
007036 NT,(RO)* :CHECK LOW BYTE OF BYTE C 
[IF GOOD THEN CONTINUE 
000002 1,R1 [SET DATA BYTE COUNT ERROR BIT 
007077 : «By YTECT+1 SAVE HIGH BYTE OF DATA BYTE COUNT 
007037 T+1,(RO)* :CHECK HIGH BYE OF DATA BYTE COUNT 
[IF OK THEN CONTINUE 
000002 1,R1 :SET DATA BYTE COUNT ERROR BIT 
:SAVE LOW BYTE OF SUMMARY WORD 
01 (RO)+,SUMARY*1 :SAVE HIGH BYTE OF SUMMARY WORD 
170000 007100 #170000, SUMARY :CHECK SUMMARY ERROR BITS TO BE 0 
‘IF NO ERROR BITS SET CONTINUE 
000001 beit0, RI 'SET SUMMARY ERROR BIT 
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CVKDBA.P11 09-APR=79 08:20 INITIALIZE THE COMMON TAGS SEQ 0065 
8381 011004 122737 000003 007030 148:  CMPB #TWRITE.OPCODE ;CHECK FUNCTION TO BE WRITE 
8382 011012 001006 BNE 15$ SIF NOT WRITE THEN EXIT 
8383 011014 022737 000004 007070 CMP #4, CONTFL : CHECK IF 4 CONTINUES WERE RECEIVED 
8384 011022 001402 BEQ 15$ s1f 4 CONTINUES THEN EXIT 
8385 011024 052701 000400 BIS #8118,R1 [SET BIT INDICATING INCORRECT # OF CONT 
8386 011030 122737 000002 007030 15%:  CMPB #TREAD,OPCODE :CHECK IF FUNCTION WAS READ PACKET 
8387 011036 001066 BNE 16$ :1f NOT THEN SET ERROR BITS IF ANY 
8388 011040 022737 000004 007072 CMP #4 ,DATAFL > CHECK IF 4 DATA PACKETS RECEIVED 
8389 011046 001402 BEQ 16$ :1F YES THEN CONTINUE 
8390 011050 052701 001000 BIS #B1T9,R1 SET BIT INDICATING DATA PACKET INCOMPLETE 
8391 011054 050137 007062 16$: BIS R1,PKTERR ‘SAVE END PACKET ERROR INFORMA 
8392 011060 005725 TST (R5)4 :BUMP POINTER TO END PACKET ERROR RETURN 
8393 011062 012700 007126 MOV #DERTBL,RO [GET ADDRESS OF DATA PACKET ERROR TABLE 
8394 011066 012702 000004 MOV #4, R2 :SETUP TO BUILD DATA PACKET ERROR WORD 
8395 011072 005001 CLR R1 [CLEAR WORKING ERROR WORD 
8396 011074 052001 188: BIS (RO)+,R1 :SET THE ERROR BITS FROM THIS PACKET 
8397 011076 005 DEC R2 [CHECK IF ALL 4 PACKETS BUILT 
8398 011100 001404 BEQ 19$ :1f YES THEN CHECK TO SEE IF ERRORS 
8399 011102 006201 ASR . RI ‘MOVE THE PACKET ERROR BITS TO POSITION 
8400 011104 201 ASR RI ; 
8401 011106 006201 ASR 1 
8402 011110 000771 BR 18% :G0 GET NEXT PACKET ERROR BITS 
8403 011112 010137 007066 19$: MOV R1,DPKTER SSAVE THE ACCUMULATED DATA PACKET ERROR BITS 
8404 011116 005737 007062 1ST PKTERR SCHECK IF ANY ERRORS DETECTED 
8405 011122 001001 BNE 17$ [IF YES THEN RETURN CALL#4 
8406 011124 005725 TST (R5)4 [RETURN CALL*6 NO ERROR DETECTED 
8407 011126 012604 17$: MOV (SP)+,R4 SRESTORE WORKING REGISTERS 
8408 011130 012603 MOV (SP)+.R3 ; 
8409 011132 012602 MOV (SP) +,R2 : 
8410 011134 012601 MOV (SP)+.R1 : 
8411 011136 012600 MOV (SP)+.RO : 
B412 011140 000205 RTS RS “RETURN BACK TO THE TEST 
8414 Be SRR AKAKKKKKKHKHKAKAARARAAARARARARRERRAREAeEEeeAees 
8415 [*THIS ROUTINE WILL DETERMINE IF A TUS8 SOFT ERROR IS TO BE REPORTED. 
8416 S*LOCATION SUSWR CONTAINS THE ALLOWABLE NUMBER OF SOFT ERRORS (DEFAULT 
8417 [*VALUE EQUALS 000000) THE PROGRAM WILL RETURN TO 
8418 > *CALL42 R RETURN = SOFT ERRORS ON THIS DRIVE EXCEEDS ALLOWED # 
8419 **CALL+4 cory ERROR 1S ALLOWED = CONT WITHOUT REPORTING THE ERROR 
8420 : SUMAAAAHAAAE KAKA KAA TEe AAA KeAKAeKAKeKeeeeeekeKeKeeeerene 
8421 
8422 011142 005237 001256 SOFTER: INC SERTTL s INCREMENT TOTAL SOFT ERROR COUNTER 
B423 011146 005237 026334 INC PSERR s INCREMENT EOP SOFT ERROR COUNTER 
B424 011152 005737 007032 1ST UNI TNM [CHECK TO SEE WHICH UNIT ERROR OCCURED 
8425 011156 001011 BNE 1$ :BR IF UNIT 1 
8426 011160 005237 001260 INC SERUNO s INCREMENT UNIT 0°S SOFT ERROR COUNTER 
8427 011164 023737 001214 001260 CMP SUSWR,SERUNO  :CHECK IF ALLOWED SOFT ERROR CNT EXCEEDED 
8428 011172 103014 BHIS 2% s1F SUSWR >= SERUNO DON'T REPORT ERROR 
8429 011174 005037 001260 CLR SERUNO SCLEAR UNIT O'S SOFT ERROR COUNTER 
8430 011200 000412 BR 3§ :RETURN AND REPORT ERROR 
8431 011202 005237 001262 1$: INC SERUNI s INCREMENT UNIT 1°S COFT ERROR COUNTER 
8432 011206 023737 001214 001262 CMP SUSWR,SERUN1 § :CHECK IF SOFT ERROR COUNT EXCEEDED 
8433 011216 103003 BHIS 2 :1F $SUSWR >= SERUN] DON'T REPORT ERROR 
8434 011216 005037 001262 CLR SERUNI [CLEAR UNIT 1°S SOFT ERROR COUNTER 
8435 011222 000401 BR 3$ *RETURN AND REPORT ERROR 
8436 0112246 005725 28: TST (RS)4 [SOFT ERROR ALLOWED - DON'T REPORT ERROR 
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8437 011226 000205 3$: RIS RS ;RETURN BACK TO CALL #2 OR #4 
8439 
8440 
8441 ; ,;, eeeeeeerrerererrerererrerrerteeerereeraneteteteneeneenernteeeeee 
8442 ; END OF PASS 
er sp, eeereeerereerererereererenerereterenenetenentetenenteneeeeeenee 

Aub 
8445 011230 005237 001264 EOP: INC KILFLG ;SET DEVICE KILL FLAG 
B446 011234 004537 013156 JSR RS, TIMER :GO WAIT FOR ALL DEVICES TO SHUT DOWN 
8447 011240 001266 DEVACT :DEVICE ACTIVE FLAG 
8448 011242 000000 0 ;SHOULD GO T0 0 
8449 011244 000240 NOP [ERROR RETURN 
8450 011246 000401 BR EOPERR :GO REPORT THE HUNG DEVICE 
8451 011250 000443 BR EOP1 :NO ERROR - CHECK VIDEO PROCESSER 
8452 011252 032737 000200 001266 EOPERR: BIT WBIT7,DEVACT CHECK IF VT100 HUNG 
8453 011260 001401 BEQ 1$ 
8454 011262 104034 ERROR+ 34 :¥1100 HUNG 
8455 011264 032737 000100 001266 18: BIT WBITO,DEVACT § ;CHECK IF CLOCK HUNG 
8456 011272 001401 BEQ 2$ 
8457 011274 104015 ERROR+15 :CLOCK HUNG 
8458 011276 032737 000040 001266 28: BIT WBITS,DEVACT  ; CHECK IF PRINTER HUNG 
8459 011304 001401 BEQ 3$ 
8460 011306 104016 ERROR*16 :PRINTER HUNG 
8461 011310 032737 000020 001266 38: BIT #BIT4,DEVACT | ;CHECK IF ASYNC COMM HUNG 
8462 011316 001401 BEQ 4$ 
8463 011320 104023 ERROR+23 ;ASYNC COMM HUNG 
8464 011322 032737 000010 001266 4$: BIT WBIT3,DEVACT | ;CHECK IF CLUSTER TERMINAL 1 HUNG 
8465 011330 001401 BEQ $ 
8466 011332 104017 ERROR+17 :CLUSTER TERMINAL 1 HUNG 
8467 011334 032737 000004 001266 5$: BIT WBITZ2,DEVACT | ;CHECK IF CLUSTER TERMINAL 2 HUNG 
8468 011342 001401 BEQ 6$ ; 
8469 011344 104020 ERROR+20 :CLUSTER TERMINAL 2 HUNG 
8470 011346 032737 000002 901266 6$: BIT WBITI,DEVACT CHECK IF CLUSTER TERMINAL 3 HUNG 
8471 011354 001401 BEQ EOP! ;1F NOT ERRORS ARE DONE FOR THIS PASS 
8472 011356 104021 ERROR*+21 ZCLUSTER TERMINAL 3 HUNG 
8472 011360 004737 013270 EOP1: JSR PC, TIMER1 :DELAY FOR OPERATOR TO SEE DISPLAY 
8474 011364 004737 013270 JSR PC, TIMER| : 
8475 011370 005037 001264 CLR KILFLG :SET KILL FLAG TO 0 
8476 011374 005037 001266 CLR DEVACT SCLEAR DEVICE ACTIVE FLAG 
8477 011400 105737 001250 TSTB ss TYPFLG ;DOING VT100 DISPLAY TESTING? 
8478 011404 001001 BNE 1$ :BRANCH IF NOT = DECLARE END OF PASS 
8479 011406 104407 SAVEVT :POSITION AT LINE 13 AND KEEP PRIORITY HIGH 
8481 011410 1$: ;RAISE PRIORITY IN CASE CAME FROM ABOVE 
8482 011410 012746 000340 MOV #PR7,-(SP) sPUT NEW PS ON STACK 

(1) 011416 012746 011422 MOV #64$,-(SP) :;PUT NEW PC ON STACK 

(1) 011420 000002 RT] 3;POP NEW PC AND PS 

(1) 011422 648: 
8483 011422 104401 016236 TYPE =, SAVCON ;SAVE THE CURSOR POSITION AND ATTRIBUTES 
8484 011426 005237 001176 INC $PASS :BUMP PASS CTR 
8485 011432 104401 TYPE :POSITION CURSOR OVER PASS COUNT (LINE 1) AND 
8486 011434 016175 PASPOS ; SET REVERSE VIDEO 
B487 011436 013746 001176 MOV SPASS,-(SP) :PUSH PASS COUNT ONTO STACK 
8488 011442 104405 TYPDS ;TYPE PASS COUNT IN DECIMAL 
8489 011444 104401 011577 TYPE =, RESCUR ;RESTORE CURSOR POSITION 


—_——_ ——_ ae — ae —— 
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8490 011450 122737 000001 001210 CMPB #WAPTENV SENV sRUNNING UNDER APT ? 
8491 011456 001003 BNE 3$ :1f NOT ERASE SCREEN AND REPORT EOP 
8492 011460 104401 016302 TYPE sENDAPT :APT, LEAVE LAST CISPLAY PATTERN ON SCREEN 
8493 011464 000402 BR 4s CONTINUE THE EOP PRINTOUT 
Bios 011466 104401 016277 3$: TYPE eENDPAS sERASE TO END OF SCREEN AND TYPE END PASS MESSAGE 
8496 011472 104461 017103 4$: TYPE -MSG3 
8497 011476 013746 026332 MOV PERR,=-(SP) 3;SAVE PERR FOR TYPEOUT 

(1) 011502 104405 TYPDS ::G0 TYPE--DECIMAL ASCII WITH SIGN 
8498 011504 104401 017135 TYPE ,ASG4 

99 011510 013746 026334 MOV PSERR,=(SP) ;;SAVE PSERR FOR TYPEOUT 

(1) 011514 104405 TYPOS 3;G0 TYPE--DECIMAL ASCII WITH SIGN 
8500 011516 104401 001165 TYPE - SCRLF 7 CARRIAGE RETURN-LINE FEED 
8501 011522 104401 011574 TYPE eNULL sNULL CHAR 
8502 011526 004737 013376 JSR PC ,GFLCHK sCHECK IF “G TYPED DURING TYPEOUT 
8503 011532 122737 000001 001210 CMPB #APTENV,SENV RUNNING UNDER APT? 
8504 011540 001003 BNE $GET42 71 NOT CHECK FOR XXDP CHAIN MODE 
tat 011542 152737 00004C 001211 BI1SB WAPTCSUP,SENVM ;UNCONDITIONALLY SET CONSOLE SUPPRESS BIT 
8507 011550 013700 000042 $GET42: MOV a#42,R0 s INSURE RO CONTAINS THE MONITOR 
8508 011554 001405 BEQ $DOAGN BRANCH IF NO MONITOR 
8509 011556 000005 RESET ;CLEAR THE WORLD 
8510 011560 004710 SENDAD: JSR PC, (RO) :GO TO MONITOR 
8511 011562 000240 NOP :SAVE ROOM 
8512 011564 000240 NOP : FOR 
85135 011566 000240 NOP sACT11 
8514 011570 000137 SDOAGN: JMP a(PC)+ ; RETURN 
Baie 011572 002374 SRTRN: .WORD LOOP : 
8517 011574 377 377 0OO NULL: .BYTE <-1,-1,0 ;NULL CHAR STRING 
a318 011577 033 070 000 RESCUR: ¢ ESC,70,0 RESTORE CURSOR (<ESC>8) 

-EV 

Bast -SBTTL PROGRAM SUBROUTINES 
8522 011602 012737 013420 000004 SIZE: MOV WINTSRV,ERRVEC ;SETUP TIMEOUT TRAP ADDR 
8523 011610 012737 000340 000006 MOV WPR7,ERRVEC+2 ;LOCKOUT INTERR 
8524 011616 005037 013460 CLR INTFLG 
8525 011622 012700 017776 MOV #17776,R0 SIZE MEM. START WITH 4K 
8526 011626 005001 CLR R1 MEM MAP, 1=4K, 2=8K, ETC 
8527 011630 005037 013460 CLR INTFLG 
8528 011634 005710 16$: TST (RO) 
8529 011636 005737 013460 TST INTFLG :GOT TIMEOUT INTERR? 
8530 011642 001007 BNE 178 :BR IF YES 
8531 011644 005201 INC R1 
8532 011646 020027 157776 CMP RO,#157776 ;DONE 28K MEM? 
8533 011652 001405 BEQ 1 :BRANCH IF YES 
8534 011654 062700 020000 ADD #20000 ,RO :GO TO NEXT 4K 
8535 011660 000765 BR 16$ 
8536 011662 162700 020000 17$: SUB #20000 ,RO ;RESET RO BACK TO HIGHEST NON-TIMED OUT ADDR 
8537 011666 010037 012640 10$: MOV RO ,MAXMEM > SAV 
8538 011672 . 006301 ASL R1 sMULT BY 2 
8539 011674 016137 012620 011704 MOV MEMTBL-2(R1), 18% 
8540 011702 104401 TYPE 
8541 011704 000000 18$: WORD 0 sMEM SIZE 
8542 011706 104401 R963? TYPE ,MEM 5 
8545 011712 004737 3376 JSR PC ,GFLCHK :CHECK If *G TYPED DURING TYPEOUT 
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8544 
8545 sCHECK TO SEE IF CLUSTER OPTION PRESENT BY ADDRESSING CSR REGISTER. 
aeet :1F ONE CSR ADDRESS NOT PRESENT, THEN CLUSTER OPTION NOT PRESENT. 
8548 011716 005037 012612 CLR CLPRES sCLEAR FLAGS INDICATING CLUSTER NOT PRESENT 
8549 011722 005000 CLR RO ; 
8550 011724 005057 013460 CLR INTFLG CLEAR PROGRAM INTERRUPT FLAG 
8551 011730 700 176500 MOV #TK1S,R0 sSETUP 1ST CLUSTER CSR ADDRESS 
8552 011734 005710 1$: TST (RO) sTEST CLUSTER > a oa 
8553 011736 005737 013460 TST INTFLG sCHECK TO SEE IF TIMEOUT 
8554 011742 001006 BNE 2$ : IF YES THEN OPTION Hw ie pee 
8555 011744 020027 176520 , CMP RO, #TK3S ;CHECK TO SEE IF DONE ALL 3 
8556 011750 001412 BEQ $ :1F YES THEN CLUSTER PRESEN NT 
8557 011752 062700 000010 ADD #10,R0 sUPDATE CSR ADDRESS TO NEXT CLUSTER CSR 
8558 011756 000766 BR 1$ :GO TRY THIS CSR ADDRESS 
8559 011760 104401 016433 2$: TYPE -CLOPT : TYPE CLUSTER OPTION NOT PRESENT 
8560 011764 104401 016676 TYPE sNOTPRES : 
8561 011770 004737 013376 JSR PC ,GFLCHK ;CHECK IF CONTROL G TYPED 
8562 011774 000402 BR 4$ :GO CHECK TO SEE IF TUS8 PRESENT 
Beer 011776 005237 012612 3$: INC CLPRES : INDICATE CLUSTER OPTION PRESENT 
tot ;THE FOLLOWING CODE WILL CHECK TO SEE IF THE TUS8 IS PRESENT 
8567 012002 005037 012620 4$: CLR eoore s;CLEAR FLAG INDICATING ane - 1. PRESENT 
8568 012006 005037 013460 CLR INTFLG ;CLEAR PROGRAM INTERRUPT 
8569 012012 042737 000100 177170 BIC ne, TURCSR CLEAR RECEIVER INTERRUPT. ENABLE 
8570 012020 005737 013460 TST INTFLG :CHECK TO SEE IF TIMEOUT OCCURED 
8571 012024 001407 BEQ 8$ :1F NOT THEN OPTION PRESENT 
8572 012026 104401 016452 TYPE . TUS8M sTYPE TUS8 NOT PRESENT 
8573 012032 104401 016676 TYPE ,NOTPRES : 
8574 012036 004737 013376 JSR PC ,GFLCHK CHECK IF CONTROL G TYPED 
8575 012042 000402 BR 9$ 4-4 RESET TIMEOUT VECTOR 
8576 012044 005237 012620 8$: INC TUPRES T TU58 PRESENT FLAG 
8577 012050 012737 000006 000004 9$: MOV WERRVEC#2, ERRVEC’ RESTORE TIMEOUT VECTOR 
HE 012056 005037 000006 CLR ERRVEC#2 : 
8580 ;THE FOLLOWING CODE WILL CHECK TC SEE IF THE PRINTER OPTION IS PRESENT. 
tH :AND SET DTR IF ASYNC COMM IS TO BE IN EXTERNAL LOOPBACK 
8585 012062 005037 176610 CLR AMRC CLEAR COMM CSR REGISTER 
8584 012066 052737 000016 176610 BIS #<SXMITIRTS!DTR>, AMRC ; TOGGLE BITS TO CLEAR COMM 
8585 012074 042737 000016 176610 BIC A<SXMITIRTS:DTR>, a 
8586 012102 005737 176610 TST AMRC EAD TO CLEAR BITS THAT MAY SET 
8587 012106 012737 037014 177420 MOV #<AMOD!B9600! CHARBS. PARAM ;SETUP COMM PARAMETER REG 
8588 012114 005037 012614 CLR PRPRES ;CLEAR PRINTER PRESENT FLAG 
8589 012120 005037 012616 CLR PRPORT :CLEAR PRINTER EXT LOOPBACK FLAG 
8590 012124 005737 177514 TST PRS ;CHECK FOR PRINTER ERROR 
8591 012130 100402 BM] 6$ :1F ERROR = CHECK A ty LOOPBACK MODE 
8592 012132 005237 012614 INC PRPRES ;SET PRINTER PRESENT FLAG 
8593 012136 032737 000010 001246 6$: BIT #B11T3,$DEVM CHECK IF COMM EXTERNAL LOOPBACK 
8594 012144 001407 BEQ 7$ :1F YES THEN DO FURTHER CHECKS 
8595 012146 052737 000006 176610 BIS #<RTS!DTR>,AMRC ;SET RTS AND DTR FOR aaa LOOPBACK 
8596 012154 005737 012614 TST PRPRES WAS THE PRINTER PRESENT 
8597 012160 001027 BNE 15$ IF YES THEN CHECK DROP DEVICE FLAGS 
8598 012162 000420 BR 5$ GO PRINT PRINTER NOT PRESENT 
8599 012164 012737 000002 176610 7$: MOV #OTR,AMRC ;SET COMM DTR TO SET EXTERNAL LOOPBACK 
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8600 012172 
8601 012176 
8602 012202 
8603 012204 
8604 012210 
8605 012212 
8606 012216 
8607 012222 
8608 012224 
8609 012230 
8610 012234 
8611 
8612 012240 
8613 012246 
8614 012250 
8615 012254 
8616 012260 
8617 
8618 012264 
8619 012272 
8620 012274 
8621 012300 
8622 612304 
8623 012310 
8624 
8625 012314 
8626 012322 
8627 012324 
8628 012330 
8629 012334 
8630 012340 
8631 
8632 012344 
8633 012352 
8634 012354 
8635 012360 
8636 012364 
8637 012370 
8638 
8639 012374 
8640 012402 
8641 012404 
8642 012410 
86435 012414 
8644 
8645 012420 
8646 012426 
8647 012430 
8648 012434 
8649 012440 
8650 
8651 012444 
8652 012452 
8653 012454 
8654 012460 
8655 012464 


005737 


004737 
032737 
001406 
104401 
104401 
004737 


032737 


004737 
032737 


004737 
032737 


004737 
032737 
001406 
104401 
104401 
004737 


032737 


004737 
032737 


004737 
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176610 
012614 


177514 


012616 
012614 


016561 
016676 
013376 
100000 
016561 
017025 
013376 
010000 


016465 


013376 
020000 
016465 


013376 
040000 


016465 
016514 
017023 
013376 


004000 
016546 
017023 
013376 
002000 
016534 
017023 
013376 
000400 
016773 


017023 
013376 
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001246 


001246 


001246 


001246 


001246 


001246 


001246 
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PROGRAM SUBROUTINES 


5$: 


15$: 


19$: 


208: 


218: 


228: 


238: 


248: 


;NOTPRES 
PC,GFLCHK 


#B11T15,S0EVM 
19$ 

»PRINT 

, DROP 

PC ,GFLCHK 
#B1T12,$DEVM 
20% 

oo 


,DROP 

PC ,GFLCHK 
#B1T13,$DEVM 
21$ 

-CLTERM 

T2 

,DROP 

PC ,GFLCHK 
#B1T14,$DEVM 
22% 

-CLTERM 

13 


, DROP 

PC ,GFLCHK 
#B1T11,$0EVM 
23% 

,ACOM 

,DROP 

PC ,GFLCHK 
#B1T10,$0EVM 
24% 

.SCOM 

.DROP 
PC,GFLCHK 
#8118, SDEVM 
25% 

-DRVO 

, DROP 

PC ,GFLCHK 
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;TO CLEAR ANY BITS THAT MAY SET 


:CHECK TO SEE IF PRINTER ALREADY PRESENT 
c1F YES THEN CHECK DROP y tee BITS 


:CHECK PRINTER AGAIN FOR ERRO 


IF ERROR THEN PRINTER NOT PRESENT 


;SET PRINTER EXT LOOPBACK 
SET PRINTER PRESENT FLAG 


:GO CHECK DROP Scwict BITS 


: TYPE PRINTER AOT PRESUNT 


"CHECK IF CONTROL G TYPED WHILE PRINTING 


DROP PRINTER TEST? 

:BR IF NO 

;CHECK IF “G TYPED DURING 
:DROP CLUSTER TERM #1? 
:BR IF NO 


;CHECK IF “G TYPED DURING 
;DROP CLUSTER TERM #2? 
:BR IF NO 


CHECK IF *G TYPED DURING 
;DROP CLUSTER TERM #3? 
BR IF NO 


CHECK IF “G TYPED DURING 

DROP ASYNC COMM TEST? 

;BR IF NO 

:CHECK IF *G TYPED DURING 

:DROP SYNC COMM TEST? 

:BR IF NO 

;CHECK IF *G TYPED DURING 

DROP TUS8 UNIT 0 TESTS? 
R IF NO 


:CHECK IF *G TYPED DURING 


FLAG 


TYPEOUT 


TYPEOUT 


TYPEOUT 


TYPEOUT 


TYPEOUT 


TYPEOUT 


TYPEOUT 


SEQ 0069 
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8656 
8657 012470 032737 001000 001246 25$: BIT #B1T9,SDEVA ;DROP TUS8 UNIT 1 TESTS? 
8658 012476 001406 BEQ 26% :BR IF NO 
8659 012560 104401 017007 TYPE -DRV1 
8660 012504 104401 017023 TYPE ,DROP 
vet 012510 004737 013376 JSR PC ,GFLCHK CHECK IF *G TYPED DURING TYPEOUT 
8663 012514 032737 000209 001246 26%: BIT #B117,S$DEVM sDROP CLOCK TESTS? 
8664 012522 001406 BEQ 27% :BR IF NO 
8665 012524 104401 016571 TYPE -CLOCK 
8666 012530 104401 017023 TYPE .DROP 
8667 012534 004737 013376 JSR PC ,GFLCHK CHECK IF *G TYPED DURING TYPEOUT 
8669 012540 032737 000100 001246 278: BIT #B116,$DEVM sDROP vT00 TEST ? 
8670 012546 001406 BEQ 288 ;1F NOT THEN EXIT 
8671 012550 104401 016577 TYPE -VT100 =; TYPE v1T100 DROPPED 
8672 012554 104401 017023 TYPE .DROP 
8673 012560 004737 013376 JSR PC ,GFLCHK ;CHECK IF CONTROL G TYPED 
8674 012564 032737 000020 001246 28%: BIT #B11T4,$DEVM ;CHECK IF MEMORY TEST TO BE DROPPED 
8675 012572 001406 BEQ 29% :1f NOT THEN EXIT AND START TEST 
8676 012574 104401 017057 TYPE »MEMORY : TYPE MEMORY TESTS TESTING DROPPED 
8677 012600 104401 017023 TYPE .DROP 
8678 012604 004737 013376 JSR PC ,GFLCHK CHECK IF CONTROL G TYPED 
ooh 012610 000207 298: RTS PC RETURN BACK TO PROGRAM 
8681 012612 000000 CLPRES: 0 :CLUSTER PRESENT = NON-ZERO 
8682 012614 000000 PRPRES: 0 PRINTER PRESENT = NON-ZERO 
8683 012616 000000 PRPORT: 0 7 1=PRINTER ENABLED THROUGH LOOPBACK 
8684 012620 000000 TUPRES: 0 ;TUS8 PRESENT = NON-ZERO 
8685 012622 016623 MEMTBL: M4K MSG ADDRESSES 
8686 012624 016626 M&K 
8687 012626 016631 M12k 
8688 012630 016635 M16K 
8689 012632 016641 M20K 
8690 012634 016645 M24K 
8691 012636 016651 M30K 
8692 012640 000000 MAXMEM: 0 ;MAX MEMORY 
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8694 sp eteereererrerrereeeererereeterereereneeereReeTieeeerereeeeeeet 
8695 ;* ROUTINE TO SET 2 CONSECUTIVE INTERRUPT VECTORS 
8696 ;* 3 ARGUMENTS ARE PASSED THRU R5: 
8697 he VECTOR ADDRESS 
8698 3* INTERRUPT SERVICE ROUTINE ADDRESS FOR RECVR 
8699 7* INTERRUPT SERVICE ROUTINE ADDRESS FOR XMITTER. 
8700 :* PRIORITY WILL BE SET TO DISABLE FURTHUR INTERR. 
8701 pp ereneeeererereerereereeeeeereeeeeeeReeeTARAAeeeAeeeeeee Tee 
8702 ‘ 
8703 012642 010046 SETVEC: MOV RO,-(SP) 3 SAVE 
8704 012644 012500 MOV (R5)+,R0 7GET VECTOR ADDR 
8705 012646 012520 MOV (R5)+,(RO)+ ;PUT SERV ROUTINE ADDR THERE 
706 012650 012720 000340 MOV #PR7,(RO)+ :DISABLE INTERR 
8707 012654 012520 MOV (R5)+,(RO)+ :GET XMIT SERV ADDR NEXT 
8708 012656 012710 000340 MOV #PR7,(RO) 
8709 012662 012600 MOV (SP)+,RO RESTORE 
arit 012664 000205 RTS R5 
8712 Sp eeeaneerrerereereereereretererereeeeKeeKeKAeeKeAeeeeeeeAeeAes 
8713 THIS SUBROUTINE IS USED TO SEND AND ACCEPT AN ESCAPE SEQUENCE FORM THE vT100. 
8714 3:11 ACCEPTS TWO ARGUMENTS: 1)POINTER TO TEXT TO SEND, AND 2) POINTER TO TEXT TO 
8715 SEXPECT BACK FROM VT100. THE EXPECTED RECEIVED TEXT MAY CONTAIN A NEGATIVE 
8716 ;BYTE (BIT 7 SET) TO FLAG THAT ANY CHARACTER IS ACCEPTABLE AS A MATCH IN THAT 
8717 ;POSITION. THE ACTUAL CHARACTER ai ag 1S STORED IN ‘‘OPTCHR’’. (NOTE THAT ONLY 
8718 ; THE LAST SUCH gee Ly WILL BE SAVED.) THREE RETURNS ARE USED, AS FOLLOWS: 
8719 ; JSR R5,VTTALK 
8720 : ARG1 ;POINTER TO TEXT TO SEND 
8721 . ARG2 ;POINTER TO TEXT TO EXPECT BACK 
8722 ; RETURNI ; :XMITTER HUNG (ERROR HAS BEEN REPORTED) 
8723 3 RETURN2 ;RECEIVER HUNG OR UNRECOGNIZED RESPONSE (ERROR REPORTED) 
8724 $ RETURNS sEVERYTHING OK 
8725 ETITITITITITTITITI ITIL ILI LITI TTT ITT TTT iiiiiiiitiiiiiii 
8726 
8727 012666 012537 014346 VTTALK: MOV (R5)*,TXTPTR ;SET POINTER TO SEND TEXT 
8728 012672 012537 014016 MOV (R5)+,RCVPTR ;SET POINTER TO EXPECTED RECEIVED TEXT 
8729 012676 105037 014012 CLRB OPTCHR ;CLEAR OPTIONAL CHARCTER 
87%0 012702 005037 014112 CLR XMTDUN ;CLEAR DONE FLAG FOR XMITTER 
8731 012706 005037 014014 CLR RCVDUN ; AND FOR RECEIVER 
8732 012712 105037 014013 CLRB ESEQFL NO ESCAPE SEQUENCE RECEIVED YET 
8733 012716 005037 001270 CLR DELFLG ;CLEAR PAUSE COUNT FLAG 
8734 012722 004537 012642 JSR R5,SETVEC :SET UP INTERRUPT VECTORS 
8735 012726 000060 TKVEC 
8736 012730 013622 TKSRV2 
8737 012732 014020 TPSRV2 
8738 012734 052777 000100 166206 BIS WIE, aSTPS :SET XMIT INTERRUPT ENABLE (RCVR ALREADY SET) 
8739 012742 004537 013156 JSR R5, TIMER sWAIT FOR XMITTER INT SERV TO FLAG IT IS DONE 
8740 012746 014112 XMTDUN 
8741 012750 000001 1 
8742 012752 104034 ERROR* 34 :VT100 NOT GETTING XMIT INTERRUPTS 
tok 012754 000423 BR 5$ 
8745 012756 004537 013156 JSR R5, TIMER sWAIT FOR RECEIVER TO FINISH RECEIVING 
8746 012762 014014 RCVDUN 
8747 012764 000001 
8748 012766 000405 BR 1$ sERROR RETURN 
8749 012770 000240 NOP :NEED TWO WORDS FOR GOOD RETURN 
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CVKOBA.P11 09-APR-79 08:20 PROGRAM SUBROUTINES SEQ 0072 
8750 
8751 012772 105737 014015 TSTB RCVDUN+1 CHECK IF RESPONSE WAS UNRECOGN! ZED 
8752 012776 001410 BEQ 3$ ;BRANCH IF NOT == ALL OK 
tty 013000 000405 BR 2% ; UNRECOGNIZED ESCAPE. SEQ 
8755 013002 105737 014013 1$: 1S1B ESEQFL CHECK IF ANY CHARACTER WERE RECEIVED 
8756 013006 001062 BNE 2$ BR IF YES--REPORT — RESPONSE 
8757 013010 104025 ERROR*+25 ;NO RESPONSE FROM VT100 
8758 013012 000403 BR 4% 
8759 013014 104032 es: ERROR+ 32 UNRECOGNIZED RESPONSE FROM vT100 
8760 013016 000401 BR 4% 
8761 013020 005725 3$ TST (R5)¢ ;BUMP RETURN TWICE FOR OK RETURN 
8762 013022 005725 4$: TST (R5)¢ ;BUMP ONLY ONCE FOR RCVR HUNG OR BAD RESPONSE 
8763 013024 000205 5$: RTS R5 
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seenrererrrerrrrrrererrerrerererereereneeeerereeetereeeerenereeese 


if 


s1T WILL SET THE SCROLLING REGION 


SAVEVT"’ 1S A TRAP INSTRUCTION AND WILL CAUSE THE V1100 CURSOR AND 
ATTRIBUTES TO BE SAVED AND “TYPE” 


my! UP 10. 
0 2-13. 


NOT SAVE AND RESTORE CURSORS. 
“RESTVT'' IS THE COMPLEMENTARY 


STRAP CALL, WHICH RESTORES ATTRIBUTES AND RETURNS THE SCROLLING REGION TO 


THE DISPLAY AREA. 


THE PROCESSOR PRIORITY IS FORCED TO REMAIN HIGH 


BETWEEN SAVEVT AND RESTVT CALLS. 


se eteatererrerererererererereterererereeatereeeeerteRneeeeeeeeTeee 


T.SAVT: MOVB TYPFLG,SAVFLG 
BNE 23 

18: BIT #ROY ,aSTPS 
BEQ 1$ 
BIC WIE, aSTPS 
MOV 2(SP),SAVPSW 
BIS #PR7,2(SP) 
INCB TYPFLG 
TYPE » SAVCUR 

2s: RT] 

SAVFLG: .WORD 0 

SAVPSW: .WORD 0 

T.RSVT: JSR PC,GFLCHK 
TSTB SAVFLG 
BNE 2$ 
TYPE »RESDSP 

1$: BIT #ROY ,aSTPS 
BEQ 1$ 
BIS WIE ,aSTPS 
DECB TYPFLG 
MOV SAVPSW,2(SP) 

2$: RTI 


SAVE THE STATE OF TYPFLG; DON’T NEED TO DO 
: ANYTHING IF DISPLAY PROCESS NOT ACTIVE 
;WAIT FOR READY BEFORE CLEARING INT ENA 


TCLEAR XMIT INTERRUPT ENABLE 
;SAVE THE CALLING PRIORITY 
FORCE HIGH PRIORITY ON RTI 


; INSURE NO SAVE OR RESTORE CURSOR ISSUED BY ‘‘TYPE’’ 


SAVE CURSOR AND ATTRIBUTES 
RETURN 


CHECK IF “G TYPED DURING TYPEOUT 
:CHECK IF ANYTHING WAS DONE ON SAVEVT CALL 
;BRANCH IF NOT--DON'T DO ANYTHING NOW EITHER 


RESTORE CURSOR AND ATTRIBUTES AND DISPLAY AREA 


: CHECK TRANSMIT READY BIT 


:WAIT FOR IT TO BECOME READY BEFORE SETTING INT ENA 


sRESTORE XMIT IE 
RESTORE FLAG TC PREVIOUS VALUE 
sRESTORE ORIGINAL SAVEVT CALLER'S PRIORITY 


;,eeeeeeeeeeeereereeeeeeeeeeteeeeeeeeeeeeeeeeeKeeteeekeeeeeeReeee 


peeeeeeeteeereeeeeeeeeteteretererereeeeKeeeKeKekekereeeeteeeeeee 


WATCHDOG TIMER TO es DEVICES FROM ENTERING AN ENDLESS WAIT LOOP 


;RETURN IF TIMED OUT 


;RETURN #4 IF NOT TIMED OUT & JUMP OVER ERROR 


PTTITITITITIIII LITTLE T LTTE TTT 


TIMER: MOV (R5)*,FLGHLD 
MOV (R5)+,CTHLD 
MOV RO,-(SP) 
MOV R1,-(SP) 
MOV #5,R1 

4$: CLR RO 

1$: TST KILFLG 
BEQ 5$ 
CMP @FLGHLD,CTHLD 
BEQ 2$ 
BR 6$ 

5$: CMP @FLGHLD,CTHLD 
BHIS 2$ 

6$: DEC RO 


:GET FLAG 
GET COUNT THAT FLAG SHOULD GO 10 


3:PUSH RO ON STACK 
:;PUSH R1 ON STACK 


313 IT EOP ? 

;1F NOT DO NORMAL TIMER 

sALL DEVICES DEAD YET ? 

c1F YES THEN EXIT 

OTHERWISE INCREMENT TIMER 
RESP ‘o NG? 

BR IF YES 

sELSE DEC COUNTER 
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CVKDBA.P1* 09-APR-79 08:20 PROGRAM SUBROUTINES SEQ 0074 
8820 013232 001362 BNE 1$ BR IF NOT TIMED OUT 
8821 013234 005237 001200 INC SDEVCT :FOR APT TO INDICATE PRG RUNNING 
8822 013240 005301 DEC R1 
8823 013242 001355 BNE 4$ 
ease 013244 000404 BR 3% ELSE TIMED OUT 
8826 013246 062765 000004 23: ADD #4 ,R5 ; JUMP OVER ERROR ON RETURN 
8827 013252 005237 001200 INC SDEVCT ;FOR APT 
8828 013256 3$: 
(2) 013256 012601 MOV (SP)+,R1 ;;POP STACK INTO RI 
(2) 013260 012600 MOV (SP)+,R0 ;;POP STACK INTO RO 
oote 013262 000205 RTS R5 
8831 013264 000000 FLGHLD: 0 
ty 013266 000000 CTHLD: 0 
8834 ppereeeeerererererererererereeereeterteeeeeeeKAeeeAeeeeAeTATeees 
8835 ; GENERAL TIMER 
8836 Pp eeeeeeeerereeererererereeeteeeeeeeeKeeeeeeeeReTAAAAAe AeA 
8837 
8838 013270 010046 TIMER1: MOV RO,-(SP) ;SAVE RO ON STACK 
8839 013272 005000 CLR RO 
8840 013274 005300 DEC RO 
8841 013276 001376 BNE 72 
8842 013300 012600 MOV (SP)+,RO sRESTORE RO 
8843 0135302 000207 RTS PC 
8844 
8845 
8846 p_eeeeeeeeeeeerreerererereeererereeeneeeeKeeeeeeeeeee eRe eRe 
8847 WATCHDOG TIMER TO PREVENT DEVICES FROM ENTERING AN ENDLESS WAIT LOOP 
8848 RETURN IF TIMED OUT 
8849 ;RETURN +4 IF NOT TIMED OUT & JUMP OVER ERROR 
2850 spetereeererererererererteeeee eee eee eeReReKeeeAKeKAeeK eee eee 
8851 
8852 013304 012537 013372 TIMER2: MOV (R5)+,REGHLD :GET REG 
att 013310 012537 013374 MOV (R5)¢*,BITHLD :;GET BIT TO BE TESTED 
8855 013314 010046 MOV RO,-(SP) :;PUSH RO ON STACK 
(2) 013316 010146 MOV R1,-(SP) 7;PUSH R1 ON STACK 
8856 013320 012701 000002 MOV #2,R1 
8857 013324 005000 4$: CLR RO 
8858 013326 033777 013374 000036 1$: BIT BITHLD,QREGHLD ;BIT THERE? 
8859 013334 001007 BNE 2$ :BR IF YES 
8860 013336 005300 DEC RO sELSE DEC COUNTER 
8861 013340 001372 BNE 1$ :BR IF NOT TIMED OUT 
8862 013342 005237 001200 INC SDEVCT FOR APT TO INDICATE PRG RUNNING 
8863 013346 005301 DEC R1 
8864 013350 001365 BNE 4$ 
eee 0133552 000404 BR 3$ ELSE TIMED OUT 
8867 013354 062705 000004 2$: ADD #4,R5 ; JUMP OVER ERROR ON RETURN 
8868 013360 005237 001200 INC SDEVCT sFOR APT 
8869 015364 3$: 
(2) 013364 012601 MOV (SP)+,R1 :;POP STACK INTO RI 
(2) 013366 012600 MOV (SP)+,RO ;:PGP STACK INTO RO 
8870 013370 000205 RTS R5 
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CVKDBA.P11 09-APR-79 08:20 PROGRAM SUBROUTINES SEQ 0075 
8871 
8872 013372 000000 REGHLD: 0 
8873 013374 000000 BITHLD: 0 
8874 
8875 
8876 Pye eeereeecencereererereererrerrertereeeteeeeeeeeeeetereeeeeeeeee 
8877 THIS SUBROUTINE MUST BE CALLED WITH THE DISPLAY PROCESS DISABLED-- 
8878 Z1.E. WITH THE CURSOR IN NORMAL MESSAGE POSITION. (E.G. EITHER BEFORE 
8879 :1T 1S STARTED, FROM RESTVT TRAP CALL, OR AFTER IT HAS BEEN STOPPED (EOP).) 
8 Piet eeeenrerecees -eeeeeerererertrereterteeteeeererereeeeereresere 
8881 
8882 013376 105737 001252 GFLCHK: TSTB GFLAG sCHECK IF CONTROL-G RECEIVED WHILE TYPING 
8883 013402 001405 BEQ 1$ ;BRANCH IF NOT 
8884 013404 104401 025257 TYPE -SCNTLG 
8885 013410 104406 GTSWR 
8886 013412 105037 001252 CLRB GFLAG 
8887 013416 000207 1$: RTS PC 
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CVKDBA.P11 09-APR-79 08:20 INTERRUPT HANDLERS SEQ 0076 
re -SBTTL INTERRUPT HANDLERS 
8891 ,teeerereererererrrereeeereerteererereereeereeeeereReKeKeeeeeeee 
8892 1” GENERAL SERVICE ROUTINE TO BUMP ‘INTFLG’ 
8893 ; CALLING ROUTINE WILL KNOW WHAT TO DO 
8894 ,,eeeeeerereeerererererereeereeeeeeterereeekaereeeeeReeKeeeeeAeeee 
8895 
8896 013420 005237 013460 INTSRV: INC INTFLG 
8897 013424 005737 001264 TST KILFLG 1S 17 TIME TO KILL THE CLOCK 
8898 0134350 001412 BEQ 1$ :1F 0 THEN NOT TIME YET 
8899 013432 032737 000200 001246 BIT #B1T7,SDEVM CHECK IF CLOCK WAS ACTIVE 
8900 013440 001006 BNE 1$ :1F NOT THEN EXIT 
8901 013442 042737 000100 177546 BIC W1E,CLK :CLEAR THE CLOCKS INTERRUPT ENABLE BIT 
8902 013450 042737 000100 001266 BIC #B11T6,DEVACT :SET THE DEVICE TO INACTIVE STATE 
zoe 013456 000002 1$: RTI ;RETURN BACK TO PROGRAM 
Boos 013460 000000 INTFLG: 0 
8907 SS eeeaeeeeeeeeekeeeeeeteteeeeeeeeeeeeeKeKekeKKeKARkekeKeeeeeeeeee 
8908 ; STANDARD CONSOLE RECEIVER INTERRUPT SERVICE ROUTINE 
; HANDLES XON, XOFF, AND CONTROL-G 
8910 CP PAAAAAAAEA ATER AAA TEAR AERA KAKeAAAAKAKeARARTeeKeARAKeKeKe 
8911 
8912 013462 017746 165460 TKSRV1: MOV a$TKB,-(SP) SAVE CHARACTER ON STACK 
8913 013466 042716 177600 BIC #°C177, (SP) STRIP ALL BUT ASCII 
8914 013472 021627 000021 CMP (SP) ,#XON :1S 11 AN XON? 
8915 013476 001013 BNE 1$ :BRANCH IF NOT 
8916 013500 105037 001253 CLRB XFLAG ;ALLOW TYPEOUTS 
8917 013504 105737 014344 . STB XIEFLG ;REQUESTED TO SET XMIT INTERRUPT ENABLE? 
8918 013510 001442 BEQ TKSIEN :BRANCH IF NOT 
8919 013512 052777 000100 165430 BIS WIE ,aSTPS 
8920 013520 105037 014344 CLRB XIEFLG ;AND TURN OFF FLAG 
8921 013524 000434 BR TKSIEN POP CHARACTER AND EXIT 
8922 013526 022716 000023 1$: CMP @XOFF , (SP) CHECK IF CHARACTER WAS XOFF 
8923 013532 001004 BNE 2$ :BRANCH IF NOT 
8924 013534 112737 000001 001253 MOVB #1,XFLAG :D0 NOT ALLOW OUTPUT 
8925 013542 000425 BR TKSIEN POP CHARACTER AND EXIT 
8926 013544 122737 000001 001134 2$: CMPB #1, SAUTOB sAUTO MODE? 
8927 013552 001421 BEQ TKSIEN BRANCH IF YES--IGNORE ALL OTHER INPUT 
8928 013554 021627 000007 CMP (SP) ,#7 WAS CHARACTER A CONTROL-G? 
8929 013560 001407 BEQ 3$ :1F YES THEN TAKE CARE OF IT 
8930 013562 021627 000003 CMP (SP) #3 :CHECK IF coer C 
8931 013566 001013 BNE TKSIEN :1F NOT THEN EXi 
8932 013570 004737 013270 JSR PC, TIMER1 DELAY TO ALLOW. Devices TO SHUTUP 
8933 013574 000137 001716 JMP QaSTART RESTART THE PROGRA 
8934 013600 104407 3$: SAVEVT : SAVE AG STATE 
8935 013602 104401 025257 TYPE -SCNTLG YPE * 
8936 013606 104406 GTSWR ALLOW suITCH REGISTER CHANGE 
8937 013610 105037 001252 CLRB GFLAG 7 IN CASE *G TYPED — TYPING SWR MSG 
8938 013614 104410 RESTVT RESTORE VT100 STA 
8939 013616 005726 TKSIEN: TST (SP)+ :POP CHARACTER OFF "STACK 
8940 013620 000002 RT} 
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165110 


INTERRUPT HANDLERS SEQ 0077 


s,eeeteeererererererrerrerereerereererenereeeerereeaereereeeeeerere 


: VT100 RECEIVER INTERRUPT SERVICE ROUTINE FOR PROCESSING ESCAPE SEQUENCES 


so eeeeeeeeereerererereererererererereerekeeeeeeneeeenerererereees 


TKSRV2: MOV asTKB,-(SP) GET CHARACTER 
BIC wecl7? ak (SP) ‘STRIP PARITY 
TSTB = ESEQF SESCAPE SEQUENCE "BEING RECEIVED? 
BMI 3$ SBRANCH IF YES 
CMPB ss #XON,, (SP) [WAS CHARACTER AN XON? 
BNE 1$ ‘BRANCH IF NOT 
CLRB = XFLAG [CLEAR XOFF FLAG 
TSTB = XIEFLG SREQUESTED TO SET XMIT INTERRUPT ENABLE? 
BEQ 99$ ‘BRANCH IF NOT 
BIS #1E ,aSTPS 
CLRB ss: KIEFLG SAND TURN OFF FLAG 
BR 99$ 
1$: CMPB es #XOF F, (SP) :WAS CHARACTER AN XOFF? 
BNE 2$ ‘BRANCH IF NOT 
MOVB =: #1, XFLAG [SET MOFF FLAG 
BR 99$ 
2$: INCB = ESEQFL sFLAG THAT A CHARACTER RECEIVED 
CMPB es WESC, (SP) [WAS THE CHARACTER AN ESCAPE? 
BNE 99$ [BRANCH IF NOT, THROW CHARACTER AWAY 
MOVB  #-1, ESEQFL *FLAG THAT WE ARE NOW RECEIVING AN ESCAPE SEQ 
38: TSTB) = @RCVPTR : SHOULD WE ACCEPT ANY CHARACTER? 
BPL 4$ :BRANCH IF NOT 
HOVE (SP) ,OPTCHR > SAVE THE CHARACTER 
4$: CMPB (SP), @RCVPTR —s«s CHARACTER OK? 
BEQ 5% SBRANCH IF YES 
INCB RCVDUN*1 ‘FLAG AN ERROR 
5$: INC RCVPTR sBUMP TO NEXT CHARACTER 
TSTB  @RCVPTR “CHECK IF AT END OF TEXT 
BNE 99$ :BRANCH IF NOT 
INCB —s«RCVDUN [FLAG DONE 
6$: MOV #TKSRV1,Q#TKVEC :RESTORE STANDARD INTERRUPT SERVICE 
99$: TST (SP)+ *POP CHARACTER OFF STACK 


OPTCHR: .BYTE 0 sLAST ‘‘OPTIONAL a ee MATCH) STORED HERE 
;MUST BE AN EVEN BYTE FOR ERROR U 

ESEQFL: .BYTE 0 :NEGATIVE WHEN ESCAPE SEQUENCE BEING PROCESSED 
sPOSITIVE IF CHARACTERS RECEIVED BUT NO ‘ESC’ 

RCVDUN: .WORD 0 ;LOW BYTE SET IF DONE NO ERRORS--HI BYTE IF ERRORS 

RCVPTR: .WORD 0 POINTER TO EXPECTED RECEIVED TEXT 


p_eeeeeeeeeerereereretrereteeesereeeeeeRAeeeeKeeKeKeKee KK eeKee eee 


:MXMITTER INTERRUPT HANDLER FOR XMITTING SINGLE TEXT STRINGS 


s_eeeeeaeererererekerereeAeeeeeeee eee ARK eKeKKeKeKeKKeAKeKe KAAS 


TPSRV2: TSTB XFLAG OK TO XMIT? 
BEQ 1$ BRANCH IF YES 
INCB XIEFLG ; REQUEST gt INT SERV TO TURN JE BACK ON WHEN XON RE 
BIC WIE ,aSTPS TURN OFF INT ENABL 
RT] TEX] T=-RE TURN WHEN XON RECEIVED 
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CVKDBA.P11  09-APR=79 08:20 INTERRUPT HANDLERS SEQ 0078 

8998 014042 117746 000300 1$:  MOVB «= @TXTPTR,-(SP) :GET THE CHARACTER TO TYPE 

8999 014046 001410 BEQ Ss BRANCH IF TERMINATOR 

9000 014050 112737 000001 001251 MOVB #1, ESCFLG [FLAG AN ESCAPE SEQUENCE 

9001 014056 012677 165070 MOV (SP)+,a$TPB ©: TYPE CHARACTER 

9002 014062 005237 014346 INC —sTXTPTR ZBUMP POINTER TO NEXT CHARACTER 

9003 014066 000002 RTI 

9005 014070 042777 000100 165052 28: BIC  #IE,aSTPS TURN OFF INTERRUPTS 

9006 014076 005237 014112 INC ——-XMTOUN FLAG THAT I AM DONE 

9007 014102 105037 001251 CLRBs-ESCFLG DONE SENDING SEQUENCE 

9008 014106 005726 TST ($P)¢ POP TERMINATOR OFF STACK 

9009 014110 000002 RTI 

9011 014112 000000 XMTDUN: .WORD 0 

9013 ; gp RARE ARAA EAHA HAHAHA AERA AAA K EARTH AAARAAAAAAHARAKRAKKAARRARAA EAE 

9014 ;"VT100 TRANSMIT INTERRUPT SERVICE ROUTINE. THIS DISPLAY PROCESS 

9015 ; LOOKS FOR SPECIAL CHARACTERS FOLLOWING AO TERMINATOR. IF THE 

9016 ; WIGH ORDER BIT OF THE BYTE IS SET, THEN IT IS TAKEN AS A NEGATIVE 

9017 ; COUNT FOR A PAUSE’ TO GIVE TIME TO VIEW THE DISPLAY. TKO 0 

9018 i BYTES IN A ROW TERMINATE THE ENTIRE DISPLAY TEXT 

9019 SRMAAHAAAAAHEAAAKA ATE TEETER AAA AAAAKAAKKAAAAAAAAKeKeRAKeeeeeeeKee 

9020 

9021 014114 032777 000200 165026 TPSRV: BIT — #RDY,a$TPS ;CHECK TO SEE IF READY SET - NEEDED FOR 

9022 FALSE INTERRUPTS 

9023 014122 001431 BEQsé9S IF NOT THEN RETURN BACK TO PROGRAM 

9024 014124 105737 001253 TSTB = XFLAG OK TO XMIT? 

9025 014130 001406 BEaStiédISS BRANCH IF YES 

9026 014132 105237 014344 INCBXIEFLG SREGUEST RECEIVER INT SERV TO TURN IE BACK ON WHEN XON R 

9027 014136 042777 000100 165004 BIC = #1E,aSTPS TURN OFF INT ENABL 

9028 014144 000002 RTI EXIT="RETURN WHEN XON RECEIVED 

9029 014146 005737 001270 18: TST —DELFLG CHECK IF PAUSE COUNT IN PROGRESS 
014152 001063 BNE 68 IF 17 1S SEND DELETE CHARACTER 

9031 014154 117746 000166 MOVB  aTXTPTR,-(SP) :GET THE CHARACTER 

9032 014160 001414 BEQ 4S BRANCH IF TERMINATOR 

9033 014162 122716 000033 2s: CMPB WESC, (SP) 1S 11 AN ESCAPE? 

9034 014166 001002 BNE 3$ BRANCH IF NOT 

9035 014170 105237 001251 INCB -ESCFLG [SET ESCAPE SEQUENCE FLAG 

9036 014174 012677 164752 3$: MOV (SP)+,a$TPB  -: TYPE _THE CHARACTER 

9037 014200 005237 014346 INC —sTXTPTR BUMP POINTER TO THE NEXT CHARACTER 

9038 014204 000002 8$: RTI RETURN TO INTERRUPTED PROCESS 

9039 014206 000240 9$: NOP 

9069 014210 000002 RTI FALSE INTERRUPT RETURN BACK TO PROGRAM 

9042 014212 005237 014346 4$: INC —sTXTPTR SKIP OVER TERMINATOR 

9043 014216 105037 001251 CLRB ss ESCFLG FLAG THAT ESCAPE SEQUENCE IS FINISHED 

9044 014222 117716 000120 HOVE BIXTPTR, (SP) REPLACE TERMINATOR ON STACK WITH NEXT CHARACTER 

9045 014226 100424 BMI 5$ :BRANCH IF A PAUSE COUN 

9046 014230 001354 BNE 28 BRANCH IF NOT 2ND TERAINATOR (TYPE CHARACTER) 

9047 014232 012737 021467 014346 NOY ADSPTATA1, TXTPTR™ RESET TEXTPOINTER 10 DISPLAY TEXT 

9048 014240 012737 000001 001254 MOV VTDONE CAG THAT PROCESS HAS COMPLETED A. PASS 

9049 014246 112716 17777 MOVB at’ (SP) TREPLACE TERMINATOR ON STACK WITH A PAUSE COUNT 

9050 014252 005737 001264 1ST —KILFLG ;1$ IT EOP TIME YET 

9051 014256 001410 BEQSts«éSS :1f NOT REPEAT TEST 

9052 914260 042737 000200 001266 BIC - WBIT7,DEVACT SET VT100 INACTIVE 

9053 014266 105726 TSTB 3 (SP)4 "POP TERMINATOR OFF THE STACK 


ee 
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014270 
014276 


014342 
014344 
014346 
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042777 
000421 


000 
014346 
000000 


000100 
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001270 
001272 
164622 
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INTERRUPT HANDLERS 


5$: 


6$: 


7$: 


XIEFLG: 
TXTPIR: 


BIC 
BR 


-BYTE 
-EVEN 
«WORD 


WIE ,aSTPs 

7$ 

(SP)¢ 

TXTIPTR 
#-1,DELFLG 
#1000. ,DELCNT 
#177, ,asTPs 
DELCNT 

7$ 

DELFLG 


8 7 
16:30 PAGE 80-8 


SEQ 0079 


CLEAR TRANSMITTER INTERRUPT ENABLE 
RETURN BACK TO THE PROGRAM 


;POP TERMINATOR OFF THE STACK 


;BUMP POINTER PAST PAUSE CONTROL 
;SET PAUSE CONTROL FLAG 

:SETUP DELAY COUNTER FOR ABOUT 1 SEC 
;SEND DELETE TO vT100 

:DECRERENT DELAY COUNTER 


; IT 
CLEAR PAUSE CONTROL FLAG 


:RETURN FROM INTERRUPT 


sFLAG FOR RECEIVER INT SERV TO TURN ON XMIT IE ON XON 
;POINTER TO TEXT BEING TYPED 


7 
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09-APR-79 08:20 INTERRUPT HANDLERS SEQ 0080 
9072 ,eeeerreerrrrrererrereerrreeeerenereeeeeeeeeKeeeeteeeeeteReeeeee 
9073 :PRINTER INTERRUPT HANDLER: VALUES FROM 40 THRU 176. 
to ;eeeeererereererrerererereeerererereeeeeeeeKeteneeeReeeAteAeeeese 
9076 014350 013737 177514 014516 PRSRV: MOV PRS, SPRS ; STORE 
9077 014356 100002 BPL 1$ 7BR IF ERROR BIT NOT SET 
9078 014360 104067 ERROR+7 ;PRINTER STATUS ERROR 
9079 014362 000002 - RTI 
9080 014364 013737 014512 177516 1$: MOV PRCHR PRB ELSE PRINT CHAR 
9081 014372 023727 014512 000015 CMP PRCHR,#CR JUST DID A CARRIAGE RETURN? 
9082 014400 001413 BEQ 2$ :BRANCH IF YES 
9083 014402 023727 014512 000012 CMP PRCHR ,A#LF 7 JUST DID LF? 
9084 014410 001413 BEQ $ :BR IF YES 
9085 014412 023727 014512 000176 CMP PRCHR #176 :D1D LAST CHAR? 
9086 014420 001413 BEQ 4% :BR IF YES 
9087 014422 005237 014512 INC PRCHR :BUMP CHAR 
ao 014426 000430 BR 5$ 
9090 014430 012737 000012 014512 2$: MOV #LF,PRCHR :D0 LINE FEED NEXT 
9091 014436 000424 BR 5$ 
9092 014440 012737 000040 014512 38: MOV #40,PRCHR :START ON LOOP VALUES NEXT 
9093 014446 000420 BR 5$ 
9094 014450 012737 000015 014512 4$: MOV #CR,PRCHR D0 CR AND START OVER 
9095 014456 005237 014514 INC LINCT ;COUNT THE LINE 
9096 014462 005237 001200 INC SDEVCT ;COUNTER FOR APT INDICATES RUNNING 
9097 014466 005737 001264 TST KILFLG ;TIME TO KILL THE PRINTER 
9098 014472 001406 BEQ 5$ :1F NOT THEN EXIT FOR NEXT INTERRUPT 
9099 014474 042737 000100 177514 BIC WIE,PRS ;CLEAR PRINTER INTERRUPT ENABLE BIT 
9100 014502 042737 000040 001266 BIC #B115,DEVACT SET PRINTER INACTIVE FLAG 
e103 014510 000002 5$: RT] 
9103 014512 000000 PRCHR: 0 + CHAR TO BE PRINTED 
9104 014514 000000 LINCT: 0 LINE CTR 
aa 014516 000000 SPRS: 0 : STORE PRINTER CSR 
9107 PRAT AAAA TEAK ETA AEA A AEE AEE EEE HAKKAR Kees 
9108 CLUSTER TERMINAL #1 INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 
9109 SRA AAAA EEA A AAA AAEE AEA 
9110 
9111 014520 042737 000100 176504 TPISRv: BIC WIE,TPIS DISABLE INTER, RECV'R WILL TURN BACK ON 
9112 014526 113737 014630 176506 MOVB TICHR,TP1B ;PRINT CHAR 
aby 014534 000002 RT] 
9115 014536 113737 176502 014632 TKISRV: MOVB TK1B,TIHLD ;STCRE CHAR 
9116 014544 123737 014632 014630 CMPB TIHLD,TICHR ; 0K? 
9117 014552 001401 BEQ 1$ :BR IF YES 
re 014554 104010 ERROR+10 CHAR COMP ERROR 
9120 014556 105237 014630 1$: INCB TICHR sUPDATE THE CHARACTER 
9121 014562 001016 BNE 3$ :1F NOT DONE yp al ~ PRINT NEXT CHAR 
9122 014564 005237 014634 INC TICNT ; INCREMENT LOOP COUN 
9123 034570 005237 001200 INC SDEVCT :COUNTER FOR APT INDICATES RUNNING 
9124 014574 005737 901264 TST KILFLG une ot KILL CLU 1 ER 
9125 014600 001407 BEQ 3$ O DO NEXT CHARACTER 
9126 014602 042737 000100 176500 BIC WIE,TKIS CLEAR RECEIVER INTERRUPT ENABLE 
9127 014610 042737 000010 001266 BIC #B1T3,DEVACT ;CLEAR CLUSTER 1 ACTIVE FLAG 
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014616 
014620 
014626 


014630 


014636 


000403 
052737 
000002 


000000 
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000100 
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4$ 
; WIE, TPIS 


HLD: 
CNT: .WORD 0 


3$: 
4$: R 
TICHR: 0 
11 0 
11 
CTPARM: .WORD 0 


RETURN BACK TO PROGRAM 
ALLOW PRINTER INTERR 


>CHAR TO XMITT 
sREC'D CHAR 


CONTAINS BAUD RATE, 8 CHAR BIT, AND MAINT BIT 


SEQ 0081 
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014640 
014646 
014654 


014656 
014664 
014672 
014674 


014676 


014746 
014750 


014752 
014754 


014756 


— 


~ 
S 
Co 
o 
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WA" w "OW 


000002 


000000 
000000 
000000 


042737 
113737 
000002 


000002 


000000 
000000 


014750 
014754 
001200 
001264 


000100 
000004 


000100 


000100 
015066 


176522 
015070 


015066 
015072 
001200 
001264 


000100 
000002 


000100 
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176514 
176516 


014752 
014750 


176510 
001266 


176514 


176524 
176526 


5070 
5066 


oo 
— 


176520 
901266 


176524 
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INTERRUPT HANDLERS 


7 
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,;eeerererererererererererrererererrereeeeeeeneeeeeererereeeenETe 


CLUSTER TERMINAL #2 INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 


,eeeeeeeerrevererrererererrerereerereeeteeeeeeereneseretererenee 


#1E,TP2S 
T2CHR, TP2B 


TK2B, 12HLD 
aaah 


T2CHR 
3$ 
T2CNT 
SDEVCT 
KILFLG 
3$ 


W1E,TK2S 
#B1T2,DEVACT 
4$ 


WIE, TP2S 


0 


sDISABLE INTER, RECV°R WILL TURN BACK ON 
PRINT CHAR 


_ CHAR 


:BR IF YES 
;CHAR COMP ERROR 


UPDATE THE CHARACTER 

;1f NOT DONE SETUP TO DO NEXT CHAR 

: INCREMENT LOOP COUNT 

: INCREMENT COUNTER FOR APT 

; TIME TO KILL CLUSTER 

NO GO DO NEXT CHARACTER 

CLEAR RECEIVER INTERRUPT ENABLE - 
: CLEAR CLUSTER 2 ohh. FLAG 
;RETURN BACK TO PROGRA 

;ALLOW PRINTER INTERR 


CHAR TO XMITT 
sREC'D CHAR 


steerer eeeeeeeereeereeeeeeeterereteeeKeKeKeeeereKeeeteneKereAees 


CLUSTER TERMINAL #3 INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 


peeeeeaeeeeteeerereeeeereeeeeeerereeeeeeeeeeeKneeeeeeeeeeeeteeee 


TP2SRV: BIC 
MOVB 
RTl 
TK2SRV: MOVB 
CAPB 
BEQ 
ERROR+11 
1$ INCB 
BNE 
INC 
INC 
TST 
BEQ 
BIC 
BIC 
BR 
3$: BIS 
4$: RTI 
T2CHR: O 
T2HLD: 0 
T2CNT: .WORD 
TP3SRV: BIC 
MOVB 
RT] 
TK3SRV: MOVB 
CMPB 
BEQ 
ERROR+12 
1$: INCB 
BNE 
INC 
INC 
TST 
BEQ 
BIC 
BIC 
BR 
3$: BIS 
4%: RT1 
T3CHR: O 
T3HLD: 0 


WIE, TP3S 
T3CHR,1P3B 


TK3B8,T3HLD 
1, tae 


T3CHR 

3$ 

T3CNT 
SDEVCT 
KILFLG 

$ 

WIE, TK3S 
SOtTl BEVACT 
W1E,TP3S 


DISABLE INTER, RECV'R WILL TURN BACK ON 
PRINT CHAR 


;STORE CHAR 
> OK? 


“BR IF YES 
[CHAR COMP ERROR 


UPDATE THE CHARACTER 

:1f NOT DONE GO TRANSMIT THIS CHAR 
; INCREMENT LOOP COUNT 

: INCREMENT COUNTER FOR APT 

;TIME TO KILL THE DEVICE 

NO GO DO NEXT CHARACTER 

CLEAR RECEIVER wine ENABLE 
sCLEAR CLUSTER 3 ACT LAG 
;RETRUN BACK TO PR OGRAM 

TALLOW PRINTER INTERR 


CHAR TO XMITT 
:REC'D CHAR 


SEQ 0082 


‘7 
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9193 015072 000000 TSCNT: .WORD 0 


CVKDBAO PDT-11 110/130 SYS EX. 


CVKDBA.P11 


oO 
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012737 
032737 


000002 
000000 


000000 
060000 


042737 


000002 
042737 


0 
000002 
000000 


000100 
015244 


176612 
015246 


015244 


015250 
001200 
001264 


000020 
000100 
000100 
037014 


000010 


000006 
000004 


000100 


000020 
000004 
001200 


MACY11 


176614 
176616 


5246 
5244 


oo 
= = 


001266 
176614 
176610 
177420 


001246 


176610 
176610 


176614 


176624 
176626 
000377 


176624 


176624 
176620 
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,teeterereeererererereterereerereteeterereeeeeeeeeereteneeeeeteeee 


ZASYNC COMM PORT INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 


;eeereeeeerererereeetererreereeeeeeeeteeeeeereteeeeneneeeeereree 


AMXSRV: aoe WIE ,AMXC DISABLE INTER, RECV'R WILi TURN BACK ON 
V 


COMCHR , AMXB MITT CHAR 
RTI 
AMRSRV: MOVB AMRB , COMHLD ; STORE CHAR 
CMPB COMHLD,COMCHR =; OK? 
BEQ 1$ BR IF YES 
ERROR+13 > CHAR COMPARE ERROR 
1$: INCB COMCHR UPDATE THE CHARACTER 
BNE 3$ :GO TRANSMIT THIS CHAR IF NOT LAST 
INC COMCNT : INCREMENT LOOP COUNTER 
INC SDEVCT > COUNTER FOR APT oy pee DEVICE RUNNING 
TST KILFLG ;TIME TO KILL ASYN COMM 
BEQ 3$ :1F NOT ALLOW NEXT XMIT INTERRUPT 
BIC a ae :CLEAR ASYNC COMM ACTIVE FLAG 
BIC WIE, pet :D1SABLE XMIT INTERRUPTS 
BIC WIE,A DISABLE RECEIVER INTERRUPTS 
MOV #<AMOD! 89600! CHARB>. PARAM ;TAKE OUT OF INTERNAL LOOPBACK 
:1F IT WAS SELECTED 
BIT #8113, SDEVM :CHECK FOR EXT LOOPBACK UNDER APT 
BNE 4% 7 1f NOT EXTERNAL EXIT 
BIS W<RTS'DTR>,AMRC TOGGLE RTS TO CLEAR EXT LOOPBACK 
BIC #RTS, AMRC : 
- BR 4% 
3$: BIS W1E,AMXC :ALLOW XMIT INTERR 
4$: RT] 
COMCHR: 0 7XMIT CHAR 
COMHLD: 0 ;REC'D CHAR 


COMCNT: .WORD 0 


pe eeeneeeereeeeeereererereeeee eee eee Kee RTE RARE eee T TET E ET 
;SYNC COMM PORT INTERRUPT HANDLER: LOOP VALUES 27 THRU 377. 


po eeeeeeeeeaerereeeeeeeeereeeeeeeteeeeeKeKeKKeeeeeeReeteeetereee Ts 


SMXSRV: au WIE ,SMXC ; DISABLE ene RECV'R WILL TURN BACK ON 
V 


COMCHR , SMXB sXMITT CH 
CMP COMCHR ,#377 LAST CHAR? 
BNE 2$ :BR IF NO - 
TST LSTCHR [WAS DUMMY PAD CHARACTER TRANSMITTED? 
BNE 1$ : BRANCH IF YES 
INC LSTCHR NO--FLAG THAT JS JS ABOUT TO BE 
oy WIE, SMXC ALLOW INTERRUPT SO CAN SHUT DOWN FAST 
1$: BIC MSEND,SMXC ;NO MORE TO SEND 
BIC #RTS,SMRC ;DROP REQUEST TO SEND 
5 ey SDEVCT ;COUNTER FOR APT TO INDICATE DEVICE RUNNING 


LSTCHR: .WORD 0 


SEQ 0084 
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CVKDBA.P11 09-APR-79 08:20 INTERRUPT HANDLERS SEQ 0085 
9251 
9252 
9253 015344 913737 176622 015246 SMRSRV: MOV SMRB , COMHLD STORE CHAR 
9254 015352 123727 015246 000026 CMPB COMHLD ,#026 7 IGNORE SYNC CHARS 
9255 015360 001430 BEQ 4$ 
9256 015362 023737 015246 015244 CMP COMHLD,COMCHR ;0K? 
9257 015370 001461 BEQ 1$ 7BR IF YES 
3g28 015372 104014 ERROR+14 ;CHAR COMPARE ERROR 
9260 015374 023727 015244 000377 1$: CMP COMCHR #377 ;LAST CHAR? 
9261 015402 001403 BEQ 2$ :BR IF YES 
9262 015404 005237 015244 INC COMCHR ELSE BUMP 
aher 015410 000411 BR 3$ 
9265 015412 012737 177777 015244 2%: MOV #-1,COMCHR ; INDICATE DONE 
9266 015420 042737 000100 176620 BIC WIE, SMRC sALL DONE 
9267 015426 005237 001200 INC SDEVCT ; COUNTER FOR APT INDICTES DEVICE RUNNING 
9268 015432 000403 BR 4$ 
9269 015434 052737 000100 176624 3$: BIS WIE, SMXC ALLOW XMIT INTERR 
9270 015442 000002 : 4$: RTI 
9271 
9272 
9273 é ;eeeeeeeeeeeekeeeeeeereteeeeeeeeeeeeeeeeeKeeeeeeeeeneeKeeetenese 
9274 3*TU58 TRANSMIT INTERRUPT SERVICE ROUTINE 
9275 >*LOCATIONS TUXPNT AND TUXCNT MUST BE SETUP PRIOR TO TURNING THE INTERRUPT 
9276 ;*ENABLE BIT ON IN THE TU58 XCSR REGISTER. WHEN TUXCNT GOES TO ZERO OR 
9277 :*UPON AN ERROR CONDITION, THE INTERRUPT ENABLE BIT WILL BE CLEARED. 
9278 ;*LOCATION TUS8ER WILL CONTAIN HARDWARE ERROR STATUS. BIT 4 SET INDICATES 
9279 7*AN INTERRUPT OCCURED WITH RDY BIT CLEARED. BIT 3 SET INDICATES AN 
9280 ;*INTERRUPT OCCURED WHEN INTERRUPT ENABLE WAS CLEARED. 
9281 p_teeeeeeareeeeeeeeeeeeeeeeeeeeeeeeekeKeKaKKeAReReNAeATeReeAeeees 
9282 
9283 015444 010046 TUXMIT: MOV RO,-(SP) SAVE THE WORKING REGISTER 
9284 015446 032737 000200 177174 BIT #RDY, TUXCSR sCHECK TO SEE IF XMIT RDY SET 
9285 015454 001004 BNE 1$ :1f SET THEN CONTINUE 
9286 015456 052737 000020 007064 BIS #8114, TUS8ER ;SET ERROR BIT INDICATING RDY NOT SET 
9287 015464 000440 BR 3$ EXIT INT SRV WITH INT ENABLE CLEARED 
9288 015466 005737 007052 1$: TST TUXCNT ;CHECK TO SEE IF INTERRUPT EXPECTED 
9289 615472 001004 BNE 2$ :1F NOT 0 THEN EXPECTED INTERRUPT 
9290 015474 052737 000010 007064 BIS #B1T3,TUS8ER ;SET BIT INDICATING INTERRUPT NOT EXPECTED 
9291 015502 000431 BR 3$ EXIT INT SRV WITH INT ENABLE CLEARED 
9292 015504 005337 007052 2$: DEC TUXCNT ;DECREMENT BYTE COUNTER 
9293 015510 001003 BNE 5$ ;1F NOT 0 TRANSMIT NEXT BYTE 
9294 015512 042737 000100 177174 BIC #1E,TUXCSR 
9295 015520 013700 007050 5$: MOV TUXPNT ,RO GET POINTER TO ee BUFFER 
9296 015524 112037 177172 MOVB (RO) +, TURXDB WRITE THE BYTE TO THE 1U58 
9297 015530 010037 007050 MOV RO, TUXPNT RESTORE THE UPDATED BUFFER POINTER 
9298 015534 005737 007102 TST BRKFLG ;CHECK IF BREAK IN PROGRESS 
9299 015540 001415 BEQ 4% 7 1F NOT BREAK THEN EXIT 
9300 015542 022737 000002 007052 CMP #2, TUXCNT ;CHECK IF 2ND NULL CHARACTER 
9301 015550 001011 BNE 4$ :1F NOT 2ND NULL THEN EXIT 
9302 015552 042737 000001 177174 BIC WBREAK,TUXCSR ;CLEAR BREAK AFTER 2ND -_. + peut 
9302 015560 005037 007102 CLR BRKFLG ;CLEAR THE BREAK oor Twang 
9304 015564 000403 BR 4$ :1F NOT 0 THEN EXIT 
9305 015566 042737 000100 177174 3%: BIC WIE, TUXCSR :CLEAR IE ON DONE OR ERROR CONDITION 
9306 015574 012600 4$: ow MOV (SP)+,RO RESTORE WORKING REGISTER 
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+ 94 015576 000002 RTI RETURN BACK TO PROGRAM 


,,eeteeeekeereretererererererererereraeeeKeaneeekeReeeeeeAeeeeAees 
:*TUS8 RECEIVER INTERRUPT SERVICE ROUTINE 

s*THIS ROUTINE WILL READ CHARACTERS FROM THE TUS8 AND STORE THEM INTO A 
s*READ MEMORY BUFFER. LOCATION TURPNT MUST BE SETUP PRIOR TO TURNING 
s*THE INTERRUPT ENABLE BIT ON IN THE TUS8 RCSR REGISTER. UPON AN ERROR 
s*CONDITION, THE INTERRUPT ENABLE BIT WILL BE CLEARED. LOCATION TUS8ER 
s*WILL CONTAIN THE HARDWARE ERROR STATUS. BIT 6 INDICATES AN INTERRUPT 
s*OCCURED WITH RECEIVER READY BIT A ZERO. BIT 5 INDICATES THE TUS8 IS 
sCONTINUOUSLY SENDING DATA AND THE RECEIVE MEMORY BUFFER IS FILLED. 


sc UeeeeeeeeeeeeeeeeeeeetereeeeeereeeeteeeReKetKeAeeeeeteKereteees 


010046 TURCVR: MOV RO,-(SP) SAVE THE WORKING REGISTER 
000200 177170 BIT WRDONE,TURCSR ;CHECK TO SEE IF RECEIVER DONE BIT SET 
1$ :1F SET THEN CONTINUE 
000100 007064 #B116,TUS8ER :SET BIT INDICATING RECEIVER DONE NOT SET 
3$ sEXIT WITH INTERRUPT ENABLE CLEARED 
007054 : TURPNT ,RO GET READ BUFFER POINTER 
031664 RO, #TURDLA CHECK TO SEE IF LESS THEN LAST ADDRESS 
:1f LESS THEN GO PUT DATA INTO MEMORY BUFFER 
000040 007064 #B1T5, TUS8ER ;SET BUFFER FULL INDICATOR 
3$ sEXIT WITH INTERRUPT ENABLE CLEARED 
177172 : TURXDB, (RO) + ;SAVE BYTE INTO READ BUFFER 
007054 RO, TURPNT :UPDATE READ BUFFER POINTER 
4% EXIT BACK TO PROGRAM 
000100 177170 : #1E,TURCSR sERROR - CLEAR INT ENA BIT 
: (SP)+,RO sRESTORE THE WORKING REGISTER 
000002 ;RETURN BACK TO THE PROGRAM 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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CVKDBA.P11 09-APR-79 08:20 PROGRAM MESSAGES SEQ 0087 

tts -SBTTL PROGRAM MESSAGES 

9340 pee eeeererereeeerreeeerrerrereerertreeeeeeeeeeteneeeeteeeneeeeee 

9341 ; MESSAGES & ERROR FORMATS 

4 94 4 POE CPPS SS PSSST CSIC TT eT rece icce ci iiiiii itis iii iii iiiiiiiiiit) 

934 ; 

oes -ENABL LC” ;LOWER CASE MUST BE ALLOWED IN ESCAPE SEQUENCES 

9346 015670 036033 055433 wet TITLE: .ASCII <ESC>/</<ESC>/C2J/<ESC>/L24h/ =; ANS]: - MODE; ERASE SCREEN;SET SMOOTH SCROL 
015676 055433 032077 150 

9347 015703 033 037533 035461 ASCII] <ESC>/071;535556;59L/ 380 COLUMN, ABSOLUTE ORG, NORMAL VIDEO 
015710 035463 035465 035466 
015716 066071 

9348 015720 055433 063463 055433 eASCII = <ESC>/03q/<ESC>/0; 9H/<ESC>/H/<ESC>/0; 17H/<ESC>/H/ :CLEAR ALL TABS, 
015726 034473 015510 015510 
Srares ved | 033461 015510 

9349 015743 033 035533 032462 ASCII] = <ESC>/0;325H/<ESC>/H/<ESC>/0; 33H/<ESC>/H/ :SET TABS AT COLUMNS 25, 
015750 015510 015510 035533 
015756 031463 015510 110 

9350 015763 033 035533 030464 ASCII] <ESC>/0341H/<ESC>/H/<ESC>/0;49H/<ESC>/H/ 7; TABS AT COLS 41,49 
015770 015510 015510 035533 
015776 034464 015510 110 

9351 016003 033 035533 033465 eASCIIT = <ESC>/0357H/<ESC>/H/<ESC>/0; 65H/<ESC>/H/<ESC>/C;73H/<ESC>/H/ =; TABS 
016010 015510 015510 035533 

16016 032466 015510 015510 

Beats eed {7 031467 015510 

9352 016033 033 031133 030473 eASCII <ESC>/02;15r/<ESC>/L0; 7m/ >SCROLLING REGION LINES 2-13; REVERSE v1 


016040 071063 055433 035460 
9353 016050 053103 042113 040502 -ASCI1 *CVKDBAO PDT-11 110/130 SYS EX. 0 PASSES* 


016100 051531 042440 027130 
016106 020040 020040 020040 
016114 020040 020060 040520 
016122 051523 051505 
9354 016126 020040 020040 020040 -ASCIZ / QO TOTAL ERRORS ( Q SOFT)/<CRLF><ESC>/Em/ ;RETURN TO NORMAL V 
016134 020060 047524 040524 
016142 020114 051105 047522 
016150 051522 024040 020040 
016156 020040 030040 051440 
016164 043117 024524 015600 
9355 016172 066533 000 
9356 ;PASPOS, ERRPOS, AND SERPOS ARE FOR DIRECT CURSOR ADDRESSING OF THE PASS AND ERROR 
9357 ;COUNTS ON LINE 1. IF THE TITLE MESSAGE 1S CHANGED, THEY MAY HAVE TO BE CHANGED ALSO. 
9358 016175 033 035533 032063 PASPOS: .ASCIZ <ESC>/C;34H/<ESC>/LO;7m/ ;DIRECT CURSOR ADDRESS TO PASS NUMBER, REVERSE 
bret gies 030133 033473 
9359 016212 055433 032073 044070 ERRPOS: .ASCIZ <ESC>/0;48H/<ESC>/L0; 7m/ DIRECT CURSOR ADDRESS TO ERROR NUMBER, 
glosee at 035460 066467 
9360 016227 033 035533 034466 SERPOS: .ASCIZ <ESC>/[;69H/ DIRECT CURSOR ADDRESS TO SOFT ERROR COUNT 


CVKDBAO PDT-11 110/130 SYS EX. 
CVKDBA.P11 


016234 
016236 


Sooooocoo°ceoo 
et ed ee et ns et 

o 

w 

Nm 

So 


10 


eeves= 
NSO SM 


33 
000156 
055433 
055433 

033 
061777 
061777 


09-APR-79 08:20 


050040 
035460 

000 
015474 
000143 
067377 
037533 

000 
037533 

000 


030524 


032525 


052514 
052040 
040516 
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042554 
051501 


035461 
032533 


000 
035461 
035464 


030060 
051117 
052120 
051120 
020124 


000 
020070 
052123 


051105 
020114 


040514 
052123 


041440 
020103 
052116 


SAVCON: . 
SAVCUR: . 
LINE13: . 
RESDSP: 

ENDPAS: . 
ENDAPT: . 
BLKBLD: . 
STATRQ: . 
IDENRQ: 


K 7 
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eASCIZ 


SEQ 0088 


mi thed ee CURSOR POSITION ONLY 
<ESC>/7 E CURSOR AND POSITION AT LINE 13 
<ESt>/L2: 13r /<ESC>/Em/<ESt>/E1$¢ H/ ;SCROLL 2-15;ALL ATTRIBUTES OFF ;LINE 


<ESC>/014; 24r/<ESC>/8/ 


<ESC>/LJ/ 
<ESC>/C?25LEND PASS/ sERASE TO END OF SCREEN; NORMAL VIDEO; TYPE END 


sSCROLL 14-24 AND RESTORE CURSOR 


<ESC>/(C0;1;5m/ ;BLINKING AND BOLD 
<ESC>/</<ESC>/L5n/ sREQUEST STATUS REPORT 
<ESC>/Le/ sREQUEST TERMINAL IDENTIFY 


so eekaeeakeeeeeeeeeeeeeeeeeeeeeerereeeeeeRetaeeKekereekekateeenene 


sRCVR_ INT SERV TEXT INCLUDES WILDCARD MATCH CHARACTERS OF NEGATIVE BYTES 


DSTATR: 
TIDNTF: 


VIDNTF: 


-ASCIZ 
eASCIZ 


-ASCIZ 


<ESC>/L/<377>/n/ sDEVICE STATUS REPORT 
<ESC>/0215/<377>/c/ TERMINAL IDENTIFY (vT100) 
<ESC>/024;/<377>/c/ sTERMIANL IDENTIFY (vT132) 


soe eeeeeeeeeeeeeeeee eee eee eee eee eeArerese 


OPTPRE: .ASCI] 
OPCHTX: .BYTE 
-BYTE 
CLOPT: .ASCIZ 
TUS8M: .ASCIZ 
TUS8MS: .ASCIZ 
CLTERM: .ASCIZ 
TI: -ASC12Z 
T2: -ASCIZ 
13: eASCIZ 
DSPTST: .ASCIZ 
SCOM: eASCIZ 
ACOM: eASCIZ 
PRINT: .ASCIZ 


/VT100 REPORTS OPTION PRESENT = / 


0 OPTION PRESENT PARAMETER RECEIVED PLACED HERE 
CRLF ,0O 3<CR><L7> AND TERMINATOR 

/CLUSTER OPTION/ 

/TUS8/ 

/Tu58 / 


/CLUSTER TERMINAL #/ 


/V/ 
/2/ 


/3/ 
/DISPLAY TESTS/ 


/SYNC COMM/ 
/ASYNC COMM/ 
/PRINTER/ 


CVKDBAO PDT-11 110/130 SYS Ex. 


CVKDBA.P11 
016566 
9392 016571 
016576 
9393 016577 
016604 
9394 016605 
016612 
016620 
9395 016623 
9396 016626 
9397 016631 
9398 016635 
9399 016641 
9400 016645 
9401 016651 
9402 016655 
016662 
016670 
9403 016676 
016704 
016712 
94046 016714 
016722 
016730 
016736 
016744 
016752 
016760 
016766 
9405 016773 
017000 
017006 
9406 017007 
017014 
017022 
9407 017023 
017030 
017036 
017044 
9408 017045 
017052 
9409 017057 
017064 
017072 
9410 017074 
017102 
411 017103 
017110 
017116 
017124 
017132 
9412 017135 
017142 
017150 
017156 
017164 


ooocoo oooo 
WEEE Wr 

So 
oa tet tp tee deme 4 


09-APR-79 08:20 


000 
047514 


030524 


047520 
051505 
09 


042523 
051516 


052111 


050101 
052111 


042524 
020107 
042520 


052522 


042524 
047117 
052011 


020072 


Lt 7 
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045503 
036060 


052122 
042524 


052116 
051105 


00 
020105 
030040 


020105 
030440 


052123 
051104 
100104 
047116 

000 
051117 
052125 


PROGRAM MESSAGES 


CLOCK: .ASCIZ 
vT100: .ASCIZ 
PORT: eASCIZ 
M4K: ASCIZ 
MBK : eASCIZ 
M12K: ASCIZ 
M16K: ASC1Z 
M20K: ASCIZ 
M24K: ASCIZ 
M30%: ASCIZ 
MEM: ASCIZ 
NOTPRES: 

WARNING: 

DRVO: eASCIZ 
DRV1: -ASCIZ 
DROP: -ASC12Z 


RUN: -ASCIZ 


MEMORY: .ASCIZ 


DUN: eASCIZ 
MSG3: .ASCIZ 
MSG4: .ASCIZ 


/CLOCK/ 
/v1100/ 
/ PORT TESTED/<CRLF> 


/30K/ 
/ MEMORY PRESENT/<CRLF> 
eASCIZ / NOT PRESENT/<CRLF> 


-ASCIZ <CRLF>/INSERT SCRATCH CASSETTES, TYPE 'P* TO PROCEED/ 


/TAPE UNIT 0/ 

/TAPE UNIT 1/ 

/ TESTING DROPPED/<CRLF> 
/ RUNNING/<CRLF> 

/MEMORY TESTS/ 


/ DONE/<CRLF > 
<HT><HT>/TOTAL ERRORS THIS PASS:/ 


<CRLF><HT><HT><HT>/SOFT ERRORS THIS PASS: / 


SEQ 0089 


a 7 
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9413 046505 : ~ASCIZ /MEMORY TIMEOUT/ 


9414 EM2: eASCIZ /MEMORY DATA COMPARE ERROR/ 


fwn——on 
SN Rooke] 


oooooo°ocoo 
SNS NSS NGS 
MNNRNNN—— 


nn 
ws 
on 


/SYNC COMM DID NOT RECEIVE SYNC CHAR/ 


= 
4 ~m 
VINES NWINMUMN OY 


F ™m w 
So So Nm 
PR — — 
——$WNO—— = OO" CO 
—"OUIWOue WW 


/PRINTER STATUS ERROR! 
051122 
052123 : . /CLUSTER TERM #1 DATA COMP ERR/ 


Oo So 

Nm 
o— =O 
=e 


Ok et th ot Sh ot ot 
= 
a 

o—-0—$ 9 OS] NNNSF 


oooooooocecoco 


042440 051122 
052514 052123 : . /CLUSTER TERM #2 DATA COMP ERR/ 


om 


042440 051122 
052514 052123 : . /CLUSTER TERM #3 DATA COMP ERR/ 


042440 051122 
0545235 041516 : . /ASYNC COMM DATA COMP ERR/ 


0 
0 
2 
5 
? 
3 
5 
5 
1 
5 
0 
3 
5 
5 
1 
5 
0 
3 
5 
5 
1 
5 
0 
1 


-—o 4 
oo-0o-000-0—"00 


/SYNC COMM DATA COMP ERR/ 


/CLK HUNG/ 


/PRINTER HUNG/ 
044040 


046522 i /TERM #1 HUNG/ 
052510 


051105 , /TERM #2 HUNG/ 
044040 


SNS NN NNN NN 
oooo 
-_——— © 
oon 





CVKDBAO PDT-11 110/150 SYS 
09-APR-79 08: 


CVKDBA.P11 


9426 


9427 


9428 


9429 


9430 


9431 


9432 


9433 


9434 


9435 


9436 


9437 


017626 
0 


042524 
020063 


047522 


051440 


046517 
a 
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-ASCIZ 


021440 
043516 


020103 
044040 


020103 
044040 


041440 


020124 
041440 


052105 


052040 
047440 


030060 


EM27: 
EM28: 
EM29: 


EM32: 


EM33: 


EM34: 


EM127: 


EM134: 


EM125: 


—EM130: 


—EM131: 


EM132: 


nN 7 
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-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/TERM #3 HUNG/ 


/SYNC COMM HUNG/ 


/ASYNC COMM HUNG/ 


/SYNC COMM = DATA NOT AVAIL NOT SET/ 


/SYNC COMM - RECVR ACTIVE NOT SET/ 


/SYNC COMM - RECVR DONE NOT SET/ 


/ROM TIMED OUT/ 


/V1T100 HUNG/ 


/NO RESPONSE FROM VT100/ 


/VT100 REPORTED SELF-TEST FAiLURE/ 


/OPTION PRESENT (STP) NOT DETECTED BY v1100/ 


/UNRECOGNIZED RESPONSE FROM v1T100/ 


SEQ 0091 


8 
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9438 0203502 054523 041516 041440 EM133: .ASCIZ /SYNC COMM MODEM LOOPBACK SIGNALS NOT SET IN CSR/ 
020310 046517 020115 047515 
020316 042504 020115 047514 
20324 050117 040502 045503 
0203352 051440 043511 040516 
20340 051514 047040 052117 
020346 051449 052105 044440 
020354 020116 051503 000122 
9439 020362 051501 047131 020103 EM140: .ASCIZ /ASYNC COMM MODEM LOOPBACK SIGNALS NOT SET IN CSR/ 
020370 047503 046515 046440 
020376 042117 046505 046040 
020404 047517 041120 041501 
020412 020113 044523 047107 
020420 046101 020123 047516 


047111 041440 051123 

9440 020443 124 032525 020070 €M135: .ASCIZ /TU58 DEVICE ERROR/ 
020450 042504 044526 042503 
020456 nes 051122 051117 


9441 020465 124 032525 020070 EM136: .ASCIZ /TUS8 WRITE ERROR/ 


9442 020506 052524 034065 oases EM137: .ASCIZ /TUS8 READ ERROR/ 


So 
Nm 
So 
w 
—~ 
™ 
So 
= 
So 
wu 
So 
w 
o 
~™ 
So 
—_ 
So 
> 
— 
— 
So 
ead 


9443 020526 051105 047522 020 DH1: -ASCIZ /ERROR # ERR PC/ 


000 
9444 020545 105 051122 DHe: -ASCIZ /ERROR # ERR PC ADDR/ 


000 
9445 020571 105 051122 DHS: -ASCIZ /ERROR # ERR PC ADDR EXPECT RECVD/ 


9446 020633 105 051122 DH4: ~ASCIZ /ERROR # ERR PC PR STATUS/ 
020640 


000123 
9447 020664 051105 047522 DHS: -ASCIZ /ERROR # ERR PC EXPECT RECVD/ 


9448 020721 105 051 DH31: .ASCIZ /ERROR # ERR PC OPTPRES/ 


9449 020750 051105 047 DH32: .ASCIZ /ERROR # ERR PC ERR WRD OP-CODE UNIT # / 


020756 004443 051 


MNYIUNNYINOOONN LOMNOOCO—MwN —MN fr 
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9450 


9451 


Pil 09-APR 


o 
secesesseses ° 


ooooo°o°ooo 
—~“ 
~m 


oo 
RMR NNNRMPRNMMNM PMP for ns wernnr 


es a a es ss ss 4 St Ss 


oO 
Nm 
PORORY at et at ot OO 


NES SNROONENNFES 


So 
Nm 
= 
Nm 
La 


021244 


021246 


021416 


000131 


026330 


026350 


ef 
Swen « 
=SnNnE=on— Ox 


051 


-—-oO—-0oO—-0— — Ae _— 
ooocococ coc coo 
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051101 


000000 
003242 


003242 
14516 
014630 
014750 
015066 
015244 
014012 
004640 
007064 


000000 
007030 


DH33: 


DH34: 


-EVEN 


DT1: 
DT2: 


DT3: 
DT4: 
DTS: 
DT6: 
DT7: 
DT8: 
D131: 
D133: 
D134: 
D135: 


C 8 
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-ASCIZ /ERROR @# 


eASCIZ /ERROR @ 


«WORD 
- WORD 


- WORD 
. WORD 
- WORD 
. WORD 
» WORD 
« WORD 
«WORD 
. WORD 
- WORD 
«WORD 


ERRNUM, SERRPC ,0 
ERRNUM, SERRPC ,ADDR ,0 


ERRNUM,SERRPC ,ADDR PAT ,MEMHLD ,0 
ERRNUM, SERRPC ,SPRS,0 
ERRNUM,SERRPC,TICHR,TIHLD,0 
ERRNUM,SERRPC ,T2CHR,T2HLD,0 
ERRNUM,SERRPC,TSCHR,TSHLD,0 

ERRNUM, SERRPC ,COMCHR ,COMHLD ,0 
ERRNUM, SERRPC ,OPTCHR,0 

ERRNUM, SERRPC ,EXPMRC ,SAVMRC ,0 
ERRNUM, SERRPC,, TUS8ER ,OPCODE ,UNI TNM,0 


ERRNUM, SERRPC ,OPCODE ,UNI TNM,BLKNUM,PKTERR, SUCCES BYTECT,SUMARY ,0 


SEQ 0093 


ERR PC OP-CODE UNIT # BLOCK # PKT WRD SUCCESS BYT CNT 


ERR PC OP-CODE UNIT # BLOCK # PKT WRD DAT WRD SUCCESS 


dD 8 
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021426 007032 007040 007062 
021432 007074 007076 007100 
000000 


0 
9467 021442 026330 001116 007030 D136: .WORD ERRNUM,SERRPC ,OPCODE,UNI TNM,BLKNUM,PKTERR ,DPKTER, SUCCES .BYTECT,SUMARY,O 
021450 007032 007040 007062 
021456 007066 007074 007076 
021464 0071069 000000 


9468 
9469 peeererecererereerererereerrrerererereertenereeeeeeeeeeeeeretee 
9470 {DISPLAY PROCESS TEXT 
9471 ;FOR THIS TEXT TO BE COMPATIBLE “" THE TYPE ROUTINE, ALL ESCAPE 
9472 fs py © SHOULD BE FOLLOWED BY A ZERO BYTE. ANY ZERO BYTE MAY, IF DESIRED, 
9473 :BE FOLLOWED BY A NEGATIVE BYTE, WHICH IS A NEGATIVE My A COUNT’. THIS WILL 
9474 ;PAUSE THE DISPLAY PROCESS (ALLOWING THE DISPLAY TO BE READ 
9475 THE ENTIRE DISPLAY TEXT IS TERMINATED BY TWO ZERO BYTES i A ROW 
9476 + eeeenerrerereeereretereeeeertererereeereneeereeeeteeeetereeeere 
9477 
9478 021470 055433 032061 031073 DSPTXT: .ASCIZ <ESC>/L14;24r/ SCROLL 14-24 
021476 071064 000 
9479 021501 033 031133 035464 eASCIZ = <ESC>/024;1H/ ;CURSOR POSITION 
021506 044061 000 
9480 021511 033 030133 030473 eASCIZ = <ESC>/L0;1q/ ;LED 1 ON 
021516 000161 
9481 021520 051525 040440 041523 ASCII] /US ASCII CHARACTER SET/<CR><LF> 


9482 021550 040 041 042 -BYTE 40,41,42,43,44,45,46,47,50,51,52,53,54,55,56,57,60,61 .62,63,64,65,66,67, 


9483 021610 100 «BYTE  100,101,102,103,104,105,106,107,110,111,112,113,114,115,116,117,CR.LF 


96484 021632 eBYTE = 120,121,122,125,124,125,126,127,130,131,132,135,134,135,136,157,140, 141, 


9485 021662 BYTE =150,151,152,153,154,155,156,157,160, 161,162,163, 164,165,166,167.170,171, 


et ot os I CE = os os ot 4 OOD 


=) 

Nm 

— 

o 

o> 

w 
— — hs ee es es ss a ss ss 
Own & FWWAN NN | | OO 
—O WOWUMINFS —AWoOnet —Ow 
OWwMmwn& & EUwnrnnre- $$ ooo0nws 
MNS —O WOW NS = NINES SS 
ss ss Ss ED SS 
GDOWML &EWWANDN A eS SS — OO 
WOWUPIN SE — FO WOUWINAWO Ut 


021675 
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021676 164 165 166 
021701 167 170 171 
021704 172 173 174 
021707 175 176 015 
9486 Oo1rte 051109 050101 044510 
4 «ASCIZ /GRAPHIC CHARACTER SET/<CR><LF><ESC>/(0/ :SELECT GRAPHIC CHAR SET 
021722 020103 044103 051101 
021730 041501 042524 020122 
021736 042523 006524 015412 
021744 050050 
9487 021747 040 041 042 “BYTE = 40,41,42,43,46,45,46,47,50,51,52,53,54,55,56,57,60,61 ,62,63,64,65,66,67, 


9488 022007 100 101 102 «BYTE =100,101,102,103,104,105,106,107,110,111,112,113,114,115,116,117, CRLF 
022012 103 104 105 
022015 106 107 110 
022020 111 112 113 
022023 114 115 116 
022026 117 015 012 
9489 022031 120 121 122 BYTE = 120,121,122,123,124,125,126,127,1350,131,132,133,134,155,136,137,140,141, 
022034 123 124 125 
022037 126 127 130 ‘ 
022042 131 132 133 
022045 134 135 136 
022050 137 140 141 
022053 142 143 144 
022056 145 146 147 
9490 022061 150 151 152 BYTE =150,151,152,153,154,155,156,157,160,161,162,163,164,165,166,167,170,171, 
022064 153 154 155 
022067 156 157 160 
022072 161 162 163 
022075 164 165 166 
022100 167 170 . 171 
022103 172 173 174 
022106 175 176 015 
022111 012 012 
9491 022113 033 041050 000 eASCIZ = <ESC>/(B/ RESTORE NORMAL CHARACIER SET 
9492 022117 374 BYTE 374 
9493 022120 005015 044514 042516 eASCII <CR><LF>/LINE SIZE TEST/<CR><LF> 
022126 051440 055111 020105 
022134 042524 052123 005015 
9494 022142 005015 021433 000063 eASCIZ <CR><LF><ESC><43><63> 
9495 022150 044124 051511 046040 eASCIT = /THIS LINE 1S DOUBLEHEIGHT DOUBLE-WIDTH/ 
022156 047111 020105 051511 
022164 042040 052517 046102 
022172 026505 042510 043511 
022200 052110 042040 052517 
022206 046102 026505 044527 


9496 
9497 


9498 
9499 


9500 
9501 


9502 
95035 


9504 


9505 
9506 


9507 
9508 


9509 
9510 


022634 


052104 
015 
way 


So 
5 
osx 
uw 
— 
a 


Fes 


015412 
044510 


044124 


035460 
040412 


052125 
035460 
044510 
042516 
047502 
035460 


044510 


047111 


F 8 
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032043 
020123 


2 
032443 
029123 


005015 


070462 
052124 
042524 


046120 
051505 


051505 
066461 
020123 
044440 
042114 
066464 


020123 


042105 


PROGRAM MESSAGES 


~ASCIZ 
-ASCII 


-ASCIZ 
-ASCII 


-ASCIZ 
-ASCIZ 


-BYTE 
-ASCIZ 


-ASCII 


-ASCIZ 
-ASCII 


eASCIZ 
-ASCI1 


eASCIZ 
-ASCI1 


<CR<LF ><ESC><45><64> 
/THIS LINE IS DOUBLE-HEIGHT DOUBLE-WIDTH/<CR><LF> 


<CR><LF ><ESC><43><66> 
/THIS LINE IS SINGLE-HEIGHT DOUBLE-WIDTH/<CR><LF > 


<CR><LF ><ESC><43><65> 
/THIS LINE IS SINGLE-HEIGHT SINGLE-WIDTH/<CR><LF > 


376 
<ESC>/(0;2q/ 3LED 2 
<CR><LF>/ATTRIBUTE DISPLAY TEST/<CR><LF><LF> 


<ESC><133><60><155> 
/THIS LINE 1S NORMAL - NO ATTRIBUTES/<CR><LF> 


<ESC><133><60><73><61><155> 
/THIS LINE IS BOLD/<CR><LF> 


<ESC><133><60><73><64><155> 
/THIS LINE 1S UNDERLINED/<CR><LF> 


SEQ 0096 


CVKDBAO PDT-11 110/150 SYS Ex. 
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9511 
9512 


9513 
9514 


9515 
9516 
9517 


9518 
9519 


9520 
9571 


9522 


9523 
95.24 


9525 
9526 


fwrwn-— 
MENDES 


025262 


005015 
055433 
066 


033 
030473 
044124 


030133 
051511 


035460 
044510 


047111 
035460 


—Wn Orr — 


G 8 
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035461 
020123 


070463 
020123 
044440 
047111 
040440 
046117 
032473 


046040 


042105 
035465 
00 


035473 


046040 


PROGRAM MESSAGES 


~ASCIZ 
-ASCII 


-ASCIZ 
«ASCII 


-ASCIZ 
-ASCIZ 
-ASCII 


-ASCIZ 
ASCII 


-ASCIZ 
-ASCI1 


-ASCIZ 


-BYTE 
-ASCII 


»ASCIZ 
-ASCI1 


<ESC><133><60><73><61><73><64><155> 
/THIS LINE IS BOLD AND UNDERLINED/<CR><LF > 


<ESC><133><60><73><65><155> 
/THIS LINE IS BLINKING/<CR><LF> 


<ESC><133><60><73><65><73><61><155> 
<ESC>/(0; 3q/ LED 3 
/THIS LINE 1S BLINKING AND BOLD/<CR><LF> 


<ESC><133><60><73><65><73><64><155> 
/THIS LINE 1S BLINKING AND UNDERLINED/<CR><LF> 


<ESC><133><60><73><65><73><61><73><64><155> 
/THIS LINE IS BLINKING, UNDERLINED AND BOLD/<CR><LF> 


<ESC><133><60><73><67><155> 


376 
<CR><LF>/THIS LINE IS REVERSE VIDEO/<CR><LF> 


<ESC><133><60><73><67><73><61><155> 
/THIS LINE IS REVERSE VIDEO AND BOLD/<CR><LF> 


SEQ 0097 
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9527 
9528 


9529 
9530 
9531 


9532 
9533 


9534 
9535 


9536 
9537 


023270 


023742 


047111 


044514 


09-APR-79 08:20 


020105 


046117 
030133 


042516 
030135 
035460 


047111 
035460 
00 


H 8 
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033473 
046040 


006504 
032073 


042105 
035467 
020123 


047111 


PROGRAM MESSAGES 


-ASCIZ 
ASCII 


eASCIZ 
-ASCIZ 
ASCII 


-ASCIZ 
-ASCI1 


-ASCIZ 
ASCII 


-ASCIZ 
-ASCI1 


<ESC><133><60><73><67><73><64><155> 
/THIS LINE IS REVERSE VIDEO AND UNDERLINED/<CR><LF > 





<ESC>/(0;4q/ ;LED 4 
<ESC><133><60><73><67><73><61><73><64><155> 
/THIS LINE IS REVERSE VIDEO, BOLD AND UNDERL INED/<CR><iF > 


<ESC><133><60><73><67><73><65><155> 
/THIS LINE 1S REVERSE VIDEO AND BLINKING/<CR><LF> 


<ESC><133><50><73><67><73><65><73><61><155> 
/THIS LINE IS REVERSE VIDEO, BLINKING AND BOLD/<CR><LF > 


<ESC><133><60><73><67><73><65><73><64><155> 
/THIS LINE IS REVERSE VIDEO, BLINKING AND UNDERLINED/<CR><LF> 
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9538 


9539 


9544 
9545 


023750 


094940 


020107 
5 
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047101 


035464 
044510 


066460 
000161 


064065 
040510 


000154 
000 
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020104 


066461 
020123 


041040 
055433 


PROGRAM MESSAGES 


SEQ 0099 


eASCIZ <ESC><133><60><73><67><73><65><73><64><73><61><155> 


sASCIL /THIS LINE 1S REVERSE VIDEO, BLINKING, UNDERLINED AND BOLD/<CR><LF> 


ATTOFF: .ASCIZ <ESC><133><60><155> 
B 376 


eASCIZ <ESC>/La/ 


sALL ATTRIBUTES OFF 
ALL LED'S OFF 


eASCIZ <CR><LF>/ CHANGING SCREEN TO BLACK ON WHITE/<ESC><133><77><65><150> 


-BYTE 


PAUSE WHILE SCREEN STAYS REVERSED 


376 
-ASCIZ <CR>/CHANGING SCREEN TO UHITE ON BI ACK/<ESC><133><77><65><154> 


-ASCII <CR><LF> 
-BYTE 0,0 


-EVEN 
-SBTTL TYPE ROUTINE 


peteeeterereeeeeereeeeeereeeeretereeeeeeAAeeeneeeeekereeeeeeeees 
ROUT INE TO TYPE ASCI1 MESSAGE. MESSAGE MUST TERMINATE WITH A ZERO BYTE. 
THIS ROUTINE 1S FUNCTIONALLY THE SAME AS SYSMAC'S ‘*.STYPE'’ AND 1S USED IN THE 
;SAME WAY. IT WAS COPiED AND EDITED FROM SYSMAC. WOR! ZONTAL TAB PROCESSOR WAS REMOVED. 
; THE SYSMAC TYPE ROUTINE COULD NOT BE USED FOR 3 REASONS: 
31) 1T DID NOT SUPPOR’ XON, XOFF (THOUGH FUTURE VERSIONS MAY) 
:2) IN ORDER TO OPERATE ALONG WITH VT100 DISPLAY PROCESS, THE TYPE ROUTINE 

MUST FIRST ISSUE SAVE CURSOR COMMAND AND POSITION THE CURSOR AND RESTORE THE 

CURSOR AT THE END. THUS, THE FLOW TO TYPE A MESSAGE IS: 

1) FIRST TYPE SAVE CURSOR MESSAGE TO SAVE CURSOR AND ATTRIBUTES AND TO 


SET UP THE SCREEN PROPERLY; 


:FINAL TERMINATOR 


2) TYPE THE MESSAGE (FROM THE ORIGINAL TYPE STATEMENT) 
3) TYPE RESTORE CURSOR MESSAGE TO TO RETURN SCREEN TO PREVIOUS STATE. 


TYPING THE SAVECURSOR AND RESTORE 
AND SOME FLAGS FOR HOUSEKEEPING. 
THE CODE FOLLOWS. 


CURSOR COMMANDS IS DONE WITH A TYPE CALL 
THE FLOWCHARTS DEALING WITH THIS PORTION OF 
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024242 


024360 
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105737 


001031 


001251 


024672 
001250 


000100 


000100 


000002 
000001 


000100 


024344 
025530 


000040 
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154660 


154636 


001210 
001211 


001211 


TYPE ROUTINE 


IF TYPFiLG = 


; 0 

3 THEN TYPFLG = -1 

; YPE, SAVCUR ; TYPE THE SAVE CURSOR MESSAGE ° 
:C20$:E1C] PROCESS (TYPE) THE MESSAGE FORM THE CALL 
+€1008:J If TYPFLG = 0 

: THEN SET TYPFLG = -1 

; TYPE, RESDSP TYPE THE RESTORE CURSOR MESSAGE 
; ELSE If TYPFLG < 0 (=-1) THEN’ SET TYPFLG = 0 


sC1018: J] RETURN 


THE SYMBOL TYPFLG CONTROLS THE SAVE AND RESTORE CURSOR PROCESS. 

s1F TYPFLG > 0 (AND NOT= 0), THEN ESCAPE SEQUENCES TO SAVE AND RESTORE THE 
;CURSOR POSITION WILL NOT BE SENT TO THE VT100. THIS WILL BE THE = IF v1100 
sDISPLAY TESTS WERE NEVER STARTED, WHICH WILL SPEED UP TYPEOUTS. AD LSO 

:*! MUST '* BE THE CASE IF IT IS DESIRED TO TYPE OUT PORTIONS OF A LINE 
;WITHOUT A CARRIAGE RETURN AT THE END. (E.G. IN THE PAUSE BETWEEN INDIVIDUAL 
:DATA TYPEOUTS ON THE SAME LINE IN THE ERROR ROUTINE.) THIS CAN BE TAKEN 

; CARE OF AUTOMATICALLY WITH THE ‘’SAVEVT"’ AND “‘RESTVT"® TRAP CALLS. 


*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LANE FEED 


SEQ 0100 


:*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
:*NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
‘ff 
s*CAL 
sel) USING A TRAP INSTRUCTION 
“OR TYPE »MESADR :;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
ie 
3 TYPE 
- MESADR 
‘ff 
$TYPE: TSTB ESCFLG sWAS AN ESCAPE SEQUENCE BEING TYPED BY DISPLAY PROCESS? 
BEQ 1$ >BRANCH IF NOT 
JSR PC,FINESC sFINISH TYPING THE ESCAPE SEQUENCE 
1$: TSTB TYPFLG ;SHOULD I SAVE THE CURSOR POSITION? 
BNE 20% ;BRANCH IF NOT 
BIC #1E ,aSTPS +o XMIT IE 
COMB TYPFLG SET FLAG TO -1 
TYPE, SAVCUR ; SAVE CURSOR POSITION AND ATTRIBUTES 
208: aac at ae SAVE RO KEYBD IE TO AVOID SPURIOUS 8085 INTERRUPTS 
V =( 72 SAV 
MOV a2(s PRO ;:GET ADDRESS OF athe STRING 
CMPB SAPTENY. SENV : ; RUNNING IN APT MODE 
BNE 62$ :NO,GO CHECK FOR ¥° {eee 
BITB #APTSPOOL , SENVM i: SPOOL MESSAGE T0 A 
BEQ 628 0,GO CHECK FOR CONSOLE 
MOV RO,61$ Setup MESSAGE seoeeee FOR APT 
JSR PC,SATY3 ::SPOOL MESSAGE TO APT 
61$: «WORD 0 : ;MESSAGE ADDRESS 
62$: BITB #APTCSUP,SENVM ¢ 3 APT cee SUPPRESSED 
BNE 60$ :YES,SKIP TYPE OUT 
23: MOVB (RO)+,=(SP) $y PUSH CHARACTER TO BE TYPED ONTO STACK 


BNE 4$ ::BR IF IT ISN'T THE TERMINATOR 
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CVKDBA.P11 + 09-APR=79 08:20 TYPE ROUTINE SEQ 0101 
9636 024362 005726 1ST (SP)+ s:1F TERMINATOR POP IT OFF THE STACK 
9637 024364 012600 60$: MOV (SP)+,RO + RESTORE RO 
9638 024366 062716 000002 3$: ADD #2, (SP) S:ADJUST RETURN PC 
9639 024372 105737 001250 100$: STB  TYPFLG *SHOULD I RESTORE THE CURSOR? 

024376 001010 BNE 101$ ‘BRANCH IF NO 
9641 024400 105137 001250 COMB = TYPFLG [SET FLAG TO <1 
9642 024404 104461 016264 TYPE, RESDSP SRESTORE THE CURSOR AND ATTRIBUTES AND DISPLAY AREA 
9643 0246410 052777 000100 154532 BIS #1E ,aSTPS SRESTORE XMIT IE 
9644 024416 000403 BR 102% 
9645 024420 100002 101$:  BPL 102$ :BRANCH IF THE TYPFLG WAS NON-ZERO AND POSITIVE 
9646 024422 105037 001250 CLRB  —s- TYPFLG [SET THE TYPFLG TO 0 
9647 024426 105737 001135 1028: TSTB  $INTAG [CHECK INT MODE INTICATOR 
9648 024432 001403 BEQ 103$ [IF SET DO NOT SET KBD INT ENA BIT 
9649 024434 052777 000100 154502 BIS #1E ,aSTKS [RESTORE IE FOR KEYBD 
9650 024442 000002 1038: RTI +: RETURN 
9651 024444 122716 000200 4$: CMPB ss CRLF, (SP) ::BRANCH IF NOT <CRLF> 
9652 024450 001010 BNE 5$ 
9653 024452 005726 TST (SP)+ :sPOP <CR><LF> EQUIV 
9654 024454 105237 001250 INCB ~~ TYPFLG S INSURE NO CURSOR SAVING 
9655 024460 104401 TYPE ::TYPE A CR AND LF 
9656 024462 001165 SCRLF 
9657 024464 105337 001250 DECB = TYPFLG :RESTORE THE FLAG 
9658 024470 000732 BR 2$ >:GET NEXT CHARACTER 
9659 024472 004737 024524 5$: JSR PC, STYPEC ::G0 TYPE THIS CHARACTER 
9660 024476 123726 001156 6$: CMPB ss SFILLC,(SP)*  ::1S IT TIME FOR FILLER CHARS. ? 
9661 024502 001325 BNE 2$ ::1F NO GO GET NEXT CHA 
9662 024506 013746 001154 MOV SNULL,-(SP) [:GET # OF FILLER CHARS. “NEEDED 
9663 ::AND THE NULL CHAR. 
9664 024510 105366 000001 7$: DECB —s«ALC SP) ::DOES A NULL NEED TO BE TYPED? 
9665 024514 002770 BLT 6$ :3BR IF NO--GO POP THE NULL OFF OF STACK 
9666 024516 004737 024524 JSR PC, STYPEC [GO TYPE A NULL 
9667 024522 000772 BR 7$ SLOOP 
9669 024524 032777 000200 154416 S$TYPEC: BIT #RDY ,aSTPS :WAIT UNTIL PRINTER IS READY 
9670 024532 001774 BEQ STYPEC 
9671 024534 032777 000200 154402 i$: BIT #RDY ,aSTKS :CHECK IF CHARACTER TO BE READ 
9672 024542 601444 BEO 5$ ‘BRANCH IF NOT 
9673 024544 017746 154376 MOV a$TKB,-(SP) [READ CHARACTER 
9674 024550 042716 177600 BIC #°C177, (SP) ‘MASK ALL BUT ASCII 
9675 024554 022716 000023 CMP #XOFF, (SP) > XOFF? 
9676 024560 001003 BNE 2$ :BR IF NO 
9677 024562 112737 000001 001253 MOVB #1, XFLAG :FLAG XOFF STATUS 
9678 024570 022716 000021 2$: CMP #XON, (SP) XON? 
9679 024574 001004 BNE 3$ ‘BR IF N 
9680 024576 105037 001253 CLRB  — XFLAG FLAG son STATUS 
9681 024602 105037 014344 CLRB = XIEFLG [CLEAR FLAG THAT IN ENABLE DESIRED (WILL BE 
9682 [SET ON RTI OR BY CALL & RESTORE SEQUENCE 
9684 024606 122737 000001 001134 3$: CMPB es #' 1, SAUTOB sAUTO MODE? 
9685 024614 001002 BNE 33¢ ! [IF NOT CHECK FOR CONTROL G OR C 
9686 024616 005726 TST (SP) + [POP CHARACTER OFF STACK 
9687 024620 000415 BR 5$ TEXIT IF XOF FLAG NOT SET 
9688 024622 022716 000007 33$: CMP #7, (SP) : CONTROL=6? 
9689 024626 001003 BNE 4$ :BR IF NOT 
9690 024630 112737 000001 001252 MOVB #1,GFLAG ‘FLAG THAT CONTROL=G NEEDS HANDLING 


9691 024636 022726 000003 4$: CMP #3,(SP)¢ CHECK IF A CONTROL C WAS TYPED 
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024642 


0 
024670 


024672 


024752 


001004 


000207 


013270 
001716 
001253 


000002 


001251 
014346 
001250 
154234 
000100 


154216 
091250 
167404 


014346 


MACY11 30A(1052) 
TYPE ROUT 


154262 


024724 


154226 


5$: TSTB 


M 
STYPEX: RTS 


09-APR-79 
INE 


5$ 

PC, TIMER] 
@aSTART 
gee 


1 
2(SP) ,aSTPB 
PC 
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:1F NOT THEN CONTINUE 

:DELAY TO ALLOW +44 a, TO SHUTUP 
RESTART THE PROGRAM 

WAIT FOR XON STATUS 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 


,eeerererererereerrerreeerererererenereeeeeeneeReeeeeeeeeeeAeeee 


STHIS SUBROUTINE FINISHES TYPING AN ESCAPE SEQUENCE STARTED BY THE XMIT INTERRUPT 


SERVICE ROUTINE (VT100 TESTING). 


FINESC: CLRB 
MO 


1$: WORD 


2$: TSTB 


3$: RTS 


ESCFLG 
TXTPTR, 1% 


aSTPS,-(SP) 
WIE ,aSTPS 


0 
wre 


:CLEAR THE ESCAPE FLAG 
;SAVE THE POINTER TO THE UNFINISHED ESCAPE SEQUENCE 
;MAKE SURE TYPE DOES NOT SAVE AND RESTORE CURSOR 


SAVE STATE OF XMIT IE 
:AND THEN CLEAR IT 


s:POINTER TO UNFINISHED ESC SEQ 
sRESTORE STATE OF XMIT IE 
RESTORE FLAG FOR CURSOR TO PREVIOUS VALUE 


:MODIFY TXTPTR TO POINT AFTER ESCAPE SEQUENCE 
BRANCH IF POINTING TO TERMINATOR 

POINT IT TO NEXT BYTE 

:GO CHECK IF AT TERMINATOR 


SEQ 0102 
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024754 


025064 
025070 


025072 


025214 


017737 


062706 
000757 


021627 


005766 


154179 
000100 
001274 
025306 
001246 
025264 
000176 
025275 


154104 


154100 
177600 
000025 


025252 
000006 


000015 
000004 
001274 
000002 
000002 


001135 


000100 
025250 


024524 
000060 


000067 


000060 
000002 
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025250 
154160 


001246 
154006 


000001 


153764 
153762 
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SOFTWARE SWITCH REGISTER CHANGE ROUTINE 
-SBTTL SOFTWARE SWITCH REGISTER CHANGE ROUTINE 


pprteeeerereererereeeereeerrerereeereeeeeeeeereeeeeerereeeeeerere 
s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, WILL 

s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SulicH REGISTER TRAP CALL 
s*WHEN OPERATING IN TTY FLAG MODE. 


SGTSWR: are 


20$: 


10$: 


3$: 
11$: 
14$: 


15$: 
16$: 


* @STPS,GSAVIE 
#1E,aSTPS 


DEVCHG 

1$ 

-MDEVA 
SDEVM,-(SP) 


. SMSWR 
SWREG,-(SP) 


asTKB,-(SP) 
#°C177, (SP) 
(SP) #25 
10% 

»$CNTLU 
#6,SP 

19 

(SP) #15 
16$ 

4(SP) 

11$ 

DEVCHG 
2(SP),SDEVM 
11$ 


o(S?) been 


, SCRLF 
SINTAG,#1 
15$ 

WIE ,aSTKS 
GSAVIE ,aSTPS 


PC ,STYPEC 
(SP) ,#60 
18$ 


(SP) ,#67 
18$ 

#60, (SP)+ 
2(SP) 


SAVE THE STATE OF XMIT IE 
AND THEN CLEAR XMIT IE 
:CHECK IF TO BE DEVICE MAP 
c1F 0 THEN SWITCH 3» lg CHANGE 
:TYPE CURRENT CONTENTS 
3 3 SAVE SDEVM FOR TYPEOUT 
O TYPE--OCTAL ASCII(ALL DIGITS) 
:G0 TYPE THE NEW QUETION 
:;TYPE CURRENT CONTENTS 
OT SWREG FOR TYPEOUT 
3G0 TYPE--OCTAL ta DIGITS) 
:;PROMPT FOR NEW SWR 
jeg COUNTER 
7; THE NEW SWR 
;;CHAR THERE? 
::1F NOT TRY AGAIN 


::PICK UP CHAR 

::MAKE IT 7-BIT ASCII 

31S 17 A CONTROL-U? 

; BRANCH IF NOT 

2;YES, ECHO CONTROL-U (“U) 
2; IGNORE PREVIOUS INPUT 
3;LET'S TRY IT AGAIN 


z31S ITA ry 

: ;BRANCH IF 

2;YES, 1S IT MTHE FIRST CHAR? 

: BRANCH IF YES 

ee IF DEVICE MAP CHANGE 

:31F O THEN SWITCH REGISTER CHANGE 
CAVE NEW SDEVM 

:3GET Lom EXIT 


T 
LE TTY KBD INTERRUPTS 
: RESTORE THE STATE OF XMIT IE 


RETURN 

:TECHO CHAR 
CHAR < 0? 

: BRANCH IF YES 

sCHAR > 7? 
i BRAN CH IF ves 
s;STRIP-OFF ASCII 
7718 THIS THE FIRST CHAR 


SEQ 0103 
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000002 
177776 


001164 


005015 
7 


042044 
020075 
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000 
000012 


020122 
053505 
053105 

000 


17$: 


18$: 
GSAVIE: 


09-APR-79 
SOFTWARE SWITCH REGISTER CHANGE 


B 
- WORD 


: .ASCIZ 
: .ASCIZ 
eASCIZ 


-ASCIZ 
-ASCIZ 
-EVEN 


2(SP) 
os 
$QUES 


208 
/*U/<15><12> 
/*G6/<15><12> 
<15><12>/SWR = 


/ NEW = 


<15><12>/SDEVM = 


8 
16:30 N PAGE 8i- ain 


ROUTINE 


;;BRANCH IF YES 

:3NO, SHIFT PRESENT 

es CHAR ++ TO MAKE 
ROOM FOR NEW ONE. 

:;KEEP COUNT OF CHAR 

7:SET IN NEW CHAR 


ONTROL- 
: STATE OF XMIT IE STORED HERE 
:;CONTROL "U" 

¢:CONTROL °’G’’ 


SEQ 0104 
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CVKDBA.P11 09-APR=79 08:20 COMMUNICATIONS ROUTIN SEQ 0105 

9790 .SBTTL APT COMMUNICATIONS ROUTINE 

(2) “Ree PeeeCeECeeKeeTeeeKATeHKAKTeKeRKeRAKeAaeeeeeeeereaenkererenes 
(1) 025322 112737 000001 025566 $ATYI: MOVB #1, SFFLG ::TO REPORT FATAL ERROR 

(1) 025330 112737 000001 025564 SATY3: MOVB #1.S$MFLG 7:10 TYPE A MESSAGE 

(1) 025336 000403 BR SATYC 

(1) 025340 112737 000001 025566 SATY4: MOVB #1,SFFLG 5:10 ONLY REPORT FATAL ERROR 
(1) 025346 SATYC: 

(3) 025346 010046 MOV RO,-(SP) ; PUSH RO ON STACK 

(3) 025350 010146 MOV R1,-(SP) +:PUSH R1 ON STAC 

(1) 025352 105737 025564 1STB © SMFLG ::SHOULD TYPE A MESSAGE? 

(1) 025356 001450 BEQ 5$ NOT: BR 

(1) 025360 122737 000001 001210 CMPB 0s MAP TENV, SENV ; OPERATING UNDER APT? 

(1) 025366 001031 BNE 3$ NOT: BR 

(1) 025370 132737 000100 001211 BITB § #APTSPOOL,SENVM i SHOULD SPOOL MESSAGES? 

(1) 025376 001425 BEQ 3$ :1f NOT: BR 

(1) 025400 017600 000004 MOV a4(SP),RO GET MESSAGE ADDR. 

(1) 025604 062766 000002 000004 ADD #2,4(SP) ;;BUMP RETURN ADDR. 
(1) 025412 005737 001170 1$: TST SMSGTYPE :3SEE IF "DONE W/ LAST XMISSION? 
(1) 025616 001375 BNE 1$ :1F NOT: WAIT 

(1) 0254620 010037 001204 MOV RO, SMSGAD ::PUT ADDR IN MAILBOX 

(1) 025424 105720 2s: TSTB —s- (RO) + >: FIND END OF MESSAGE 

(1) 025426 001376 BNE 2$ 

(1) 025430 163700 001204 SUB SMSGAD,RO ::SUB START OF MESSAGE 

(1) 025434 006200 ASR RO ::GET MESSAGE LNGTH IN WORDS 
(1) 025436 010037 001206 MOV RO, SMSGLGT ::PUT LENGTH IN MAILBOX 

(1) 025442 012737 0000046 001170 HOV #4, SASGTYPE ::TELL APT TO TAKE MSG. 

(1) 025452 017637 000004 025476 38: MOV a4(SP),4$ ::PUT MSG ADDR IN JSR LINKAGE 
(1) 025460 062766 000002 000004 ADD #2,4(SP) RETURN ADDRESS 
(3) 025466 013746 177776 MOV 177776, =(SP) +: PUSH be ON STACK 

(1) 025472 006737 024242 JSR PC, $TYPE ::CALL TYPE MACRO 

(1) 025676 000000 4$ WORD 0 

(1) 025500 5$: 

(1) 025500 105737 025566 10$:  TSTB $FFLG ; SHOULD REPORT FATAL ERROR? 
(1) 025504 001416 BEQ 12$ F NOT: BR 

(1) 025506 005737 001210 1ST SENV : RUNNING UNDER APT? 

(1) 025512 001413 BEQ 12$ :1 

(1) 025516 005737 001170 11$: TST SMSGTYPE FINISHED LAST MESSAGE? 

(1) 025520 001375 BNE 11$ :1f NOT: WAIT 

(1) 025522 017637 000004 001172 MOV 4 (SP), SFATAL GET ERROR # 

(1) 025530 062766 000002 000004 ADD #2,4(SP) :;BUMP RETURN ADDR. 
(1) 025536 005237 001170 INC SMSGTYPE s:TELL APT TO TAKE ERROR 

(1) 025542 105037 025566 12$: CLRB S$FFLG +:CLEAR FATAL FLAG 

(1) 025546 105037 025565 CLRB ss SLFLG >:CLEAR LOG FLAG 

(1) 025552 105037 025564 CLRB = SMFLG S:CLEAR MESSAGE FLAG 

(3) 025556 012601 MOV (SP)+,R1 ::POP STACK INTO R1 

(3) 025560 012600 MOV (SP)+,RO ::POP STACK INTO RO 

(1) 025562 000207 PC + RETURN 

(1) 025564 $MFLG: .BYTE 0 7 :MESSG. FLAG 

(1) 025565 000 $SLFLG: .BYTE 0 LOG FLAG 

(1) 025566 000 - $FFLG: BYTE 0 *: FATAL FLAG 

(1) 025570 EVEN 

(1) 000200 APTSIZE=200 

(1) 000001 APTENV=001 

(1) 000100 APTSPOOL=100 
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(1) 000040 ... | APTCSUP=040 
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-SBTTL ERROR HANDLER ROUTINE 


PPC i iii titi tit iiiiiiiiiiiiiiiti titty 
SeTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
s*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
:*AND GO TO MYTYPE ON ERROR 
 * THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

;*Sw15=1 HALT ON ERROR 

INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 


N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


025570 SERROR: 
026332 I PERR ;COUNT THE PASS ERRORS 
000001 001210 #APTENV,SENV CHECK IF APT 
90$ ;1F NOT DO NORMAL ERROR PROCEDURE 

037014 177420 #<AMOD!B9600! CHARB> ,PARAM ;OPEN ASYN COMM PORT TO WORLD 

176610 W<RTS'SXMIT!DTR>,AMRC ;TOGGLE DTR TO CLEAR EXT LOOPBACK 

176610 W<RTS'SXMIT!DTR>,AMRC ; 

RC CLEAR DSC/DSI BITS 
;CLEAR OUT THE INT ENA BITS FOR COMM 


:CLEAR RECEIVER INT MODE INDICATOR 
000100 177546 BIC WlE,CLK CLEAR THE CLOCKS INTERRUPT ENABLE BIT 
025654 104407 : :SAVE THE VT100 DISPLAY STATE 


BLINKING AND BOLD ON ERROR 


025656 032777 002000 153254 #81710, aSwR sCHECK SWITCH 10 
100% ;BRANCH IF NOT SET 
020000 153244 #B1T13,aSWR ;TYPEOUTS INHIBITED? 
100$ :BRANCH IF YES 
104401 016320 -BLKBLD :BLINKING BOLD FOR ERROR TYPEOUT 


105237 001103 7$: SERFLG 33SET THE ERROR FLAG 

7$ :DON'T LET THE FLAG GO TO ZERO 
001102 STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
002000 #B1T10,aSWR ;;BELL ON ERROR? 

1$ ::NO = SKIP 
001160 , $BELL ; RING BELL 
: SERTTL ;:COUNT THE NUMBER OF ERRORS 
(SP) ,SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 


#2, SERRPC 
@SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
020000 0313200 ; F SET 


; EOUTS 
026306 PC ,MYTYPE +:G0 TO USER ERROR ROUTINE 
104401 001165 - SCRLF 


122737 000001 001210 WAPTENV,SENV ;;RUNNING IN APT MODE 
::NO,SKIP APT ERROR REPORT 
001114 026020 SITEMB,21% ;;SET ITEM NUMBER AS ERROR NUMBER 
025340 JS aaa ;;REPORT FATAL ERROR TO APT 
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026021 
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CVKDBA.P11 


i i 


lel el el en i ae a 
WWWANAANN A 


026150 


000002 


153110 


025257 
001252 


MACY11 30A(1052) 


153074 


09-APR-79 


ERROR HANDLER ROUTINE 


228: 
23: 


3$: 


101$: 


22% 
aSUR 
3$ 


o ATTOFF 
aSTPS,-(SP) 


P os 
SERTIL,=(SP) 
- SERPOS 
SERTTIL,-(SP) 
eRESCUR 
(SP)+,a$TPS 
TYPFLG 
GFLAG 

1018 

-SCNTLG 


GFLAG 


—e 9 
16:30 PAGE 81-21 


;;APT ERROR LOOP 
:;HALT ON ERROR 
::SKIP IF CONTINUE 
;:HALT ON ERROR! 


;ALL_ATTRIBUTES OFF IN CASE un IN BLINKING BOLD 


sRESTORE VT100 TO DISPLAY STA 

sSAVE STATE OF XMIT IE 

AND THEN CLEAR IT 

;KEEP TYPE FROM SAVING CURSORS 
;SAVE_ THE CURSOR POSITION ONLY 
:POSITION CURSOR OVER ERROR COUNT 
3:SAVE SERTTL FOR TYPEOUT 

::GO TYPE--DECIMAL ASCII WITH SIGN 


:POSITION CURSOR OVER SOFT ERROR COUNT 


7;SAVE SERTTL FOR TYPEOUT 

:;G0 TYPE--DECIMAL ASCII WITH SIGN 
sRESTORE THE CURSOR POSITION 
sRESTORE STATE OF XMIT IE 

:RESTORE STATE OF TYPFLG 

:SEE IF “G TYPED DURING TYPEOUTS 


;BR IF NOT (NOTE THAT GFLCHK SUB. CANNOT BE USED) 


SAVE THE POSITION 


;CLEAR THE CONTROL G TYPED FLAG 


SEQ 0108 


CVKDBAO PDT-11 110/130 SYS Ex. 
CvKDBA.P11 


a 
a 
~~ 


LL OPPO PP PLP PLP PP LP PP LP PLP LP LP PP GP LP Pe he fh fe fe 
ky IN at sk kk kk kk et eB RIS wt tt tt et at a as ss FO 
eee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee ee ee ee es ees aes 


026152 


026170 
026174 


026302 


026306 


026526 
026330 


09-APR-79 


104401 
010046 
00 


5000 
153700 
001004 
013746 


104402 


104401 
000207 


013046 


026306 


113757 


000207 
000000 


08:20 


001165 


001114 


001116 


001276 
026224 


001165 
026242 


001165 


001165 


026302 
000 


001114 
001116 
026152 


MACY11 30A(1052) 


026330 
001174 


09-APR-79 


ERROR MESSAGE TYPEOUT ROUTIN 
-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


SRT AAAATH SARAH HEHEHE HATHA AAEAAAAHAAAAAARAAAAARAAARAKAAAAEE 


eTHIS ROUTINE USES THE ““ITEM CONTROL BYTE"’ Heeb TO DETERMINE WHICH 


;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, 


9 
16:30 Apne 81-22 


FROM T 


;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 


2$: 
3$: 


4$: 
5$: 
6$: 


7$: 


8$: 


MYTYPE: 


ERRNUM: 0 


, SCRLF 
~ aa 


R 
a#$1TEMB,RO 
1$ 


SERRPC ,-(SP) 


R 
#SERRTB,RO 
(RO)+,2$ 
3$ 


0 

-SCRLF 
(RO)+,4% 
5$ 


0 

- SCRLF 
(RO) ,RO 
7$ 


(SP)+,RO 

, CRLF 

PC 
a(RO)+,-(SP) 
(RO) . 

8% 

7$ 

 . 
S$ITEMB,ERRNUM 


SERRPC,STESIN 
abl 


3 3 ""CARRIAGE RETURN’ & “‘LINE FEED"’ 
7 SAVE RO 
PICKUP THE ITEM INDEX 


sei ITEM NUMBER IS ZERO, JUST 
TYPE THE PC OF THE ERROR 

:7SAVE SERRPC FOR TYPEOUT 

;;ERROR ADDRESS 

3;GO0 TYPE--OCTAL ASCII(ALL DIGITS) 

::GET OUT 

;;ADJUST THE INDEX SO THAT IT WILL 

23 WORK FOR THE ERROR TABLE 


::FORM TABLE POINTER 

7;PICKUP ‘ERROR MESSAGE*’ POINTER 
Ah do TYPEOUT IF NO POINTER 

7; TYPE THE ‘ERROR MESSAGE" 
77""ERROR MESSAGE’ POINTER at HERE 
3:°"CARRIAGE RETURN’ & “LINE FEED" 
::PICKUP "DATA HEADER’ POINTER 
::SKIP TYPEOUT IF 0 

+3 TYPE THE ‘‘DATA HEADER" 

3:''DATA HEADER’ POINTER GOES HERE 
3:'"CARRIAGE RETURN’ & “LINE FEED’ 
> PICKUP “DATA TABLE'’ POINTER 
3:;GO TYPE THE DATA 

7 ;RESTORE RO 

IR we RETURN’ & “LINE FEED’ 


oon a(R0O)+ FOR TYPEOUT 
O TYPE=-OCTAL ASCII(ALL DIGITS) 
1S THERE ANOTHER NUMBER? 
;:;BR IF NO 
3; TYPE TWO(2) SPACES 


; LOOP 
3: TwO(2) SPACES 


ron AP = TYPEOUT 
7 TYPE MER MSG 


;FOR ERR TYPEOUT 


E “ERROR TABLE’ (SERRTB), 
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9853 
9854 026332 000000 PERR: 0 PASS ERR COUNT 
9855 026334 900000 PSERR: 0 sPASS SOFT ERR COUNT... ALL FOR EOP TYPEOUT 








H 9 
CVKDBAO PDT-11 110/130 SYS EX. MACY11 30A(1052) O9-APR-79 16:30 PAGE 81-24 


CVKDBA.P11 09-APR=79 08:20 RANDOM NUMBER GENERATOR ROUTINE SEQ 0111 
9857 -SBTTL RANDOM NUMBER GENERATOR ROUTINE 
(2) s,eeeereerrereererterererererereererereeeeererereeeekeeeeeeeeetet 
(1) z*THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
(1) s*WITH A RANGE OF 0 TO 2(+33)-1. 
(1) s*CALL: 
(1) ie JSR PC, SRAND ::CALL THE ROUTINE 
(1) ze RETURN >: RETURN HERE THE RANDOM 
(1) e ::NUMBER WILL BE IN 
Hy - >: $HINUM, SLONUM 
(1) 026336 SRAND: 
(3) 026336 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 026340 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
(3) 026342 010246 MOV R2,-(SP) ::PUSH R2 ON STACK 
(1) 026344 013700 026436 MOV SLONUM,RO ::SET RO WITH LOW 
(1) 026350 013701 026434 MOV SHINUM,R1 ::SET R1 WITH HIGH 
(1) 026354 012702 177771 MOV #-7,R2 3:SET SHIFT COUNT 
(1) 026360 006300 1$: ASL RO ::SHIFT RO LEFT AND 
(1) 026362 006101 ROL R1 ::ROTATE CARRY INTO R1 AND 
(1) 026364 005202 INC R2 >:CHECK FOR DONE 
(1) 026366 001374 BNE 1$ s:CONTINUE SHIFT LOOP 
(1) 026370 063700 026436 ADD SLONUM, RO ::ADD NUMBER TO MAKE xX 129 
(1) 026374 005501 ADC R1 ::PROPOGATE CARRY 
(1) 026376 063701 026434 ADD SHINUM,R1 ::ADD NUMBER TO MAKE X 129 
(1) 026402 062700 001057 ADD #1057,k0 ::ADD LOW CONSTANT 
(1) 026406 005501 ADC R1 ::PROPOGATE CARRY 
(1) 026410 062701 047401 ADD #47401,R1 ::ADD HIGH CONSTANT 
(1) 026414 010037 026436 MOV RO, SLONUM ::SAVE RO 
(1) 026420 010137 026434 MOV R1,$HINUM ::SAVE R1 
(3) 026424 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
(3) 026426 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
(3) 026430 012600 MOV (SP)+,RO ::POP STACK INTO RO 
(1) 026432 000207 RTS PC > > RETURN 
(1) 026434 176543 SHINUM: .WORD 176543 
(1) 026436 123456 SLONUM: .WORD 123456 
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-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


,eeeeeererrererererrererererereeeeeeeekeKeeeKeeeeeeeeeAteeeeeAes 
tSTHIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
> *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
he WITH SPACES. 

> *CALL: 


ae. MOV NUM ,-(SP) ;:PUT THE BINARY NUMBER ON THE STACK 
57 YPDS ::G0 TO THE ROUTINE 


STYPDS: 
| RO,-(SP) >:PUSH RO ON STACK 
R1,-(SP) 3;PUSH R1 ON STACK 
R2,-(SP) 7:PUSH R2 ON STACK 
R3,-(SP) 3;PUSH R3 ON STACK 
R5,-(SP) 3:PUSH RS ON STACK 
020200 #20200,-(SP) 3:SET BLANK SWITCH AND SIGN 
000020 20(SP),R5 3:GET THE INPUT NUMBER 
1$ > IBR IF INPUT IS POS. 
R5 3;MAKE THE BINARY NUMBER POS. 
000055 000001 #'=,1°SP) ::MAKE THE ASCII NUMBER NEG. 
1$: RO 3:ZERO THE CONSTANTS INDEX 
026654 #SDBLK ,R3 3:SETUP THE OUTPUT POINTER 
000040 #’ ,(R5)+ ;;SET THE FIRST neon pa TO A BLANK 


: R2 
026644 SOTBL(RO),R1 33 
R1,R5 ::FORM THIS BCD DIGIT 
;:BR IF DONE 
;: INCREASE THE BCD DIGIT BY 1 


::ADD BACK THE CONSTANT 
::CHECK IF BCD DIGIT=0 
;:FALL THROUGH IF 0 
::STILL DOING LEADING 0'S? 


ela tl ltl ll le i el ed et et et at et et et a a nt nt nt nt tent. 
ss st st ts ee et tt et ee et et tt ct tt as as as ts es FU 


) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 


000001 
000060 
000040 


000010 


177777 


012602 


6$ 
1(SP),-1(R3) 
#'0,R2 


#’ CR 
R2,(R3)4 
(RO)+ 


~RO,#10 
2$ 


8$ 

R5,R2 

6$ 

(SP)+ 

9$ 
~1(SP),-2(R3) 
(R3) 

(SP)+,R5 


(SP)+,R3 
(SP)+,R2 


3:BR IF YES 
ed | 9 


::;BR IF NO 

32: YES--SET THE SIGN 

7:MAKE THE BCD DIGIT ASCII 

3;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
3:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
3;JUST INCREMENTING 

:;CHECK THE TABLE INDEX 

3:60 DO THE NEXT DIGIT 

3:60 TO EXIT 

::GET THE LSD 

3:60 CHANGE TO ASCII 

a THE FIRST NON-ZERO? 


B 
3: YES--SET THE SIGN FOR TYPING 
::SET THE TERMINATOR 
3;POP STACK INTO R5 
7;PO° STACK INTO R3 
;;POP STACK INTO R2 
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012601 (SP)+,R1 ;3POP STACK INTO RI 
(SP)+_RO 
026654 SDBLK 
000002 000004 2(SP) ,4(SP) STAD JUST THE STACK 


(SP)+, (SP) 
° : RETURN TO USER 


-_ 
w 
~ 


SDTBL: 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


— ee eee ee ee ee ee ee 


10. 
000004 S$DBLK: .BLKW 4 
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-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


peeereeeerererreeererrreereeeerereeereeeeeeeeeeeKeeeeeeeeeTeees 

SSTHIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
[*OCTAL (ASCII) NUMBER AND TYPE IT. 

i ST YPOS---EWTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


*CALL: 
NUM, -(SP) ; NUMBER TO BE TYPED 
:;CALL FOR TYPEOUT 
33N=1 .. 6 FOR NUMBER OF DIGITS TO TYPE 


: N 

: 4 IM=1 0 

: :;1=TYPE LEADING ZEROS 

: ::0=SUPPRESS LEADING ZEROS 
*@ 


3 *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
s*$TYPOS OR $TYPOC 

S*CALL: 

3* MOV NUM ,-(SP) 3 ;NUMBER TO BE TYPED 

3f TYPON 3:CALL FOR TYPEOUT 


;* 

1 hr gaat comet HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3 *CALL: 

3* NUM ,-(SP) 3; NUMBER TO BE TYPED 
7° 3;CALL FOR TYPEOUT 


026664 017646 000000 $TYPOS: a(SP),-(SP) ;:PICKUP THE MODE 
M 1(SP) ,SOFILL :;LOAD ZERO FILL SWITCH 
(SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 

000002 #2,(SP) ;;ADJUST RETURN ADDRESS 

B $TYPON 
000001 $TYPOC: #1,SOFILL 7;SET THE ZERO FILL SWITCH 
000006 MO #6, SOMODE+1 7:SET FOR SIX(6) DIGITS 
000005 ; STYPON: a Se a ITERATION COUNT 


7: SAVE R5 
027111 SOMODE*1, RG 7:GET THE NUMBER OF DIGITS TO TYPE 


000006 a6, R4 ;;SUBTRACT IT FOR MAX. ALLOWED 
R4 , SOMODE ::SAVE IT FOR USE 
SOFILL.R4 72:GET THE ZERO FILL SWITCH 
000012 12¢SP),R5 ::PICKUP THE INPUT NUMBER 
R3 7:CLEAR THE OUTPUT WORD 
;;ROTATE MSB INTO *'C"’ 
::G0 DO MSB 
::FORM THIS DIGIT 


: R ;:GET LSB OF THIS Dead 
027110 th A DIGIT 


R NO 
177770 #177770,R3 ::GET RID OF JUNK 
; 4% 7: TEST FOR 0 
RG ;;SUPPRESS THIS 0? 
027024 001403 5$ ::BR IF YES 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


i i i i i i i i i i i i a en nh nh ne 
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CVKDBA.P11 09-APR-79 08:20 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0115 
(1) 027026 005204 4$: INC RG ::DON'T SUPPRESS ANYMORE 0°S 
(1) 027030 052703 000060 BIS #°0,R3 33MAKE THIS DIGIT ASCII 
(1) 027034 052703 000040 5$: BIS #* R3 3;MAKE ASCII IF NOT ALREADY 
(1) 027060 110337 027104 MOVB = R33, BS i SAVE FOR TYPING 
(1) 027044 104401 027104 TYPE ,8$ [G0 TYPE THIS DIGIT 
(1) 027050 105337 027106 7$: DECB = SOCNT [:COUNT BY 1 
(1) 027054 003347 BGT 23 ;;BR IF MORE TO DO 
(1) 027056 002402 BLT 6$ [:BR IF DONE 
(1) 027060 005204 INC RG 3: INSURE LAST DIGIT ISN'T A BLANK 
(1) 027062 000744 BR 23 3:G0 DO THE LAST DIGIT 
(1) 027064 012605 6S: MOV (SP)+,R5 SSRESTORE RS 
(1) 012604 MOV (SP)+,R4 33 TORE R4 
(1) 027070 012603 MOV (SP)+_R3 : RESTORE R3 . 

(1) 027072 016666 000002 000004 MOV 2(SP) ,4(SP) :3;SET THE STACK FOR RETURNING 
(1) 027100 012616 MOV (SP)+, (SP) 

(1) 027102 000002 RTI : : RETURN 

(1) 027104 000 8$: -BYTE 0 s:STORAGE FOR ASCII DIGIT 

(1) 027105 000 BYTE 0 3; TERMINATOR FOR TYPE ROUTINE 
(1) 027106 000 SOCNT: .BYTE 0 ;;OCTAL DIGIT COUNTER 

(1) 027107 000 SOFILL: .BYTE 0 33ZERO FILL SWITCH 

(1) 027110 000000 SOMODE: .WORD 0 3 :NUMBER OF DIGITS TO TYPE 
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-SBTTL TRAP DECODER 


PRPS i tii i iiiiiitiiiiiiitititity) 
s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “‘TRAP*’ INSTRUCTION 
s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE, STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


027112 010046 STRAP: RO,-(SP) 3:SAVE RO 
016600 000002 :;GET TRAP ADDRESS 
0 0) ; BACKUP BY 2 
:;GET RIGHT BYTE OF TRAP 
RO :;POSITION FOR INDEXING 
027146 STRPAD(RO),RO ;;INDEX TO TABLE 
RO ::G0 TO ROUTINE 


eet at at fC 


027132 


::THIS IS USE TO HANDLE THE ‘’GETPRI*’ MACRO 


027134 011646 STRAP2: MOV (SP) ,-(SP) ;;MOVE THE PC DOWN 
027136 016666 000004 000002 MOV 4(SP),2(SP) ;MOVE THE PSW DOWN 
027144 000002 RTI ;;RESTORE THE PSW 


~SBTTL TRAP TABLE 


s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE ‘‘TRAP’’ INSTRUCTION. 


. 
e 


027146 027134 STRPAD: STRAP2 
& ; > CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
3;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
026440 STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


027162 024754 SGTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 


027164 013026 T.SAVT ;;CALL=SAVEVT TRAP+7(104407) SAVE VT100 CURSOR AND ATTRIBUTES 
027166 013106 T.RSVT ;;CALL=RESTVT TRAP+10(104410) RESTORE vVT100 CURSOR AND ATTRIBUTES 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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( 
( 
( 
( 
( 
( 
( 
( 
f 
( 
( 
( 


tet a ed de a nh hh hh nee 


Em rh Ut Nh wt st es st os a oo oe 


sWRITE DATA PACKET BUFFER 


027170 000000 WIPK1: .WORD 0 : PACKET 
027372 000000 CKPK1: .WORD 0 PACKET 1 CHECKSUM WORD 


027374 000000 WIPK2: WORD ; PACKET 
027576 000000 CKPK2: .WORD ; PACKET 2 CHECKSUM WORD 


027600 000000 WIPK3: WORD ; PACKET 
030002 000000 CKPK3: .WORD ; PACKET 5 CHECKSUM WORD 


030004 000000 WTPK4: WORD ; PACKET 
030206 000000 CKPK4: WORD : PACKET 4 CHECKSUM WORD 
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SEQ 0117 


ss eererereererrrererereererereeeeeeKeAAKeeteAKeKeeAKeeAeeeeKeAeAAe 


:* TUS8 READ BUFFER (TOTAL RESERVED LOCATIONS = 407 WORDS) 


pf PRE RAAA EAA AAAAAATAAEAEAAAAAR ATA 


030210 000000 TURDBF: .WORD 0 
031664 000069 TURDLA: .WORD 0 


031666 LSTAD: 
009001 END 
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ABASE = 176500 
ACDW1 = 000000 


ACDW2 = 000000 
ACOR 016546 
PUOP= 


000000 
ADOR 003242 
ADDWO = 000000 
00000 


AMRC = 176610 


AMRSRV 015112 


APRIOR= 000000 


66528 6942: 
6942 


6942 

7560 8641 93908 

6942 

Fes 7162* 7167" 7188* 7193 


66334 6942 


67414 7108 7495 7498 8587 
66994 7103" 7104* 7106* 7107+ 


7514* 7515 7521 7527* 7528 
8586 8595* 8599" 8600 9216 


7375 7463 7468 7472 74818 


67018 7548* 9199" 9215" 9224e 
7542 91998 

66734 

6942 

6942 


CROSS REFERENCE TABLE -- USER SYMBOLS 


72308 9456 
9217 9841 
7109 7492+ 
7536* 7537 


9221* 9222s 


9841+ 


9457 


74938 
7547* 
9841« 


7494 
7574* 


7500 
7576 


7501* 
8583« 


7502 
8584* 


SEQ 0118 


7508 
8585* 
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APTCSU= 000040 8505 pot 97908 
APTENV= 000001 Sete At 7077 7111 7238 7300 7371 7423 7483 7534 8490 8505 9625 
APTSIZ= 000200 7044 37908 
APTSPO= 000100 9627 97908 
ASWREG= 000000 6942 
ATESTN= 000000 6942 
ATTOFF 024102 95404 9841 
AUNIT = 000000 6942 
AUSWR = 000000 66354 6942 
AVECT1= 000300 66344 6942 

ECT2= 6942 
BITHLD 013374 8853* 8858 88734 

110 = 1 66544 6812 6885 7270 7583 8380 
B1T00 = 1 66544 
BITO1 = 66544 
BIT02 = 66544 
B1T03 = 000010 66544 
B1T04 = 000020 66544 
B1T05 = 000040 66544 
B1T06 = 000100 66544 
B1T07 = 000200 66544 
B1T08 = 600400 66544 
B1T09 = 001000 66544 
BIT1 = 000002 66544 6779 6799 6834 7623 7684 8371 8375 8470 9186 
B1T10 = 002000 66544 6792 6825 7369 8163 8645 9841 
B1T11 = 004000 66544 6824 6863 7481 8213 8639 
BIT12 = 010000 66544 6791 6806 6823 6840 6862 7215 7287 7316 7354 7462 7557 

7606 7646 7686 =. 7742 7809 7824 8154 8220 8265 8618 

B1T13 = 020000 66544 6790 6805 6822 7618 8159 8260 8625 9841 
B1T14 = 040000 66544 6789 6804 6821 6839 6845 7064 7658 8230 8256 8632 
B1T15 = 100000 66544 6788 6803 6820 6838 6861 7329 8172 8612 
BIT2 = 000004 66544 6798 6833 = 7644 7663 8364 8367 8467 9157 
BITS = toy oe 6832 6869 7101 7382 7490 7572 7604 8360 8464 8593 
BIT4 = 000020 66544 6831 6868 7132 7555 8357 8461 8674 9214 9286 
BITS = 000040 66544 6796 6830 6867 7353 7819 7985 7998 8354 8458 9100 9328 
BIT6 = 100 sexe 1444 6811 6829 6866 6879 6884 7236 7314 7741 8351 8455 
BiT7 = 000200 stay ore 6810 6828 6865 6878 6883 7284 7298 8124 8346 8452 
BIT8 = 000400 66544 6827 6864 7075 7083 7704 8003 8008 8385 8651 
BI1T9 = 001000 66544 6793 6826 7085 7256 7706 7731 7816 8390 8657 
BLOCHK 007356 8011 80214 
BLOPKT 007156 7759 7982a 
BLKBLD 016320 93684 9841 
BLKCNT 007046 7748* 7804"  7846# 
BLKNUM 007040 7051* 7821*  7822* 7842 7987" 7988* 7994" 8010" 9466 9467 
BPTVEC= 000014 66544 
BREAK = 000001 68124 68854 8092 9302 
BRKFLG 007102 7721* 79464 8090 9298 9303+ 
BYTCNT 007036 7841# 8005*  8009* 8369 8373 
BYTECT 007076 7943# 8368" 8372" 9466 9467 
B110 = 001000 67488 
B1200 = 003400 67534 7332 


B1354 = 001400 67498 


CVKDBAO PDT-11 ah, & SYS EX. 


CVKDBA.P11 
B150 = 002000 
B1800 = 004 
B19200= 007400 
B2000 = 0044 
B2400 = 005000 
B300 = 002400 
B3600 = 005400 
B4800 = 006000 
850 = 000000 
B600 = 003000 
B7200 = 006400 
B75 = 000400 
89600 = 007000 
CDET = 010000 
CHARS = 000000 
CHAR6 = 000004 
CHAR7 = 000010 
CHARS = 000014 
CHRS = 000000 
CHR6 = 002000 
CHR7 = 004000 
CHRB = 006 
CKPK1 627372 
CKPK2 027576 
CKPK3 030002 
CKPK4 030206 
CKSUM 007042 
CLK = 177546 
CLKTST 003560 
CLKVEC= 000100 
CLOCK 016571 
CLOPT 016433 
CLPRES 012612 
CLTERM 016465 
CLITST 005314 
CL2TST 005540 
CL3TST 005716 
COMCHR 015244 
COMCNT 015250 
COMHLD 015246 
CONSOL= 010000 
CONTFL 007070 
CR = 000015 
CRLF = 000200 
CTHLD 013266 
CTPARM 014636 
CTS = 020000 
CT1 = 000000 
CT2 = 050000 
(13 = 060000 
DATAFL 007072 
DATPKT 010140 
DATPNT 007116 


09-APR-79 


08:20 


D 10 
MACY11 30A(1052) O9-APR-79 16:30 PAGE 82-2 


CROSS REFERENCE TABLE -- USER SYMBOLS 


7578 


7108 7495 7498 : 9217 9841 


68234 7402 7475 


7108 7332 7495 7498 7578 8587 


7241 7246 7262 7288 72988 


7649 7689 8620 8627 8634 9384e 
7506 7512 7519 7525 7532 7554 
7456 7544* 9200 9204 9208* 92278 


7441 7546* 9203* 9204 92288 9253* 


7940# 8215 8227* 8228 8388 


9217 


9841 


9260 


9262+ 


SEQ 0120 


9265* 


CVKDBAO PDT-11 110/130 SYS Ex. 


CVKDBA.P11 

DDISP = 177570 
DELCNT 001272 
DELFLG 001270 
DERFLG 007114 
DERTBL 007126 
DEVACT 001266 
DEVCHG 001274 
DHI 020526 
DH2 020545 
DHS 020571 
DH31 020721 
DH32 20750 
D433 021020 
DH34 21127 
DHS 020633 
DHS 020664 
DISPLA 001142 
DISPRE 000174 
DNA = 100000 
DNAIE = 000040 
DONE = 600200 
DPKTER 007066 
DROP 017023 
DRVO 016773 
DRV1 017007 
DSC == 100000 
DSI = 100000 
DSIE = 000040 
DSPTST 016516 
DSPTXT 021470 
DSRDY = 001000 
DSTATR 016344 
DSWR = 177570 
OTR = 000002 
DT1 021246 
DT2 021254 
DT3 021264 
D131 21360 
DT33° =: 021370 
D134 021402 
D135 021416 
D136 021442 
DT4 021300 
O15 021310 
DT6 021322 
D17 021334 
D18 021346 
DUN 17074 
EMTVEC= 000030 
EM 017171 
EM125 020076 


09-APR-79 08:20 


MACY11 : 


94348 


A(1052) 


09-APR-79 


E 10 
16:30 PAGE 82-3 


ROSS REFERENCE TABLE -- USER SYMBOLS 


6965 


7829 
94138 


6967 


94108 


7555 
8902* 


6979 


6997 


7604* 
9052* 


6981 


7001 


8654 


7385 
7513 


6981 


76448 
9100* 


6983 


94478 


8660 


7388 
7514 


6983 


7684* 
9127* 


6985 


8666 


7390 
7526 


6985 


8447 
9157« 


6987 


8672 


7402 
7527 


6987 


8452 
9186* 


6989 


8677 


. 7603 


7536 
6989 


8455 
92148 


6991 


94078 


7415 
7574 


6991 


SEQ 0121 


8458 


6995 


7416 
7576 


6995 


CVKDBAO PDT-11 110/130 SYS Ex. 


CVKDBA.P11 09-APR-79 08:20 
EM127 020045 6989 
EM130 020125 6991 
EM131 020166 6993 
EP132 =©6020241 6995 
EM135 020302 6997 
‘al. 2006 6999 
EM135 6020443 7003 
EM136 020465 005 
EM137 020506 7007 
E140 20362 7001 
EM2 017210 6949 
EM23 017546 6969 
EM24 017557 6971 
EM25 017574 6973 
EM26 017611 6975 
EM27 017626 6977 
EM28 017643 6979 
EM29 017662 6981 
EMS 017242 6955 
EM32 017702 6983 
—M33 017745 94308 
EM34 020006 69 
EMG 617306 6957 
EMS 017333 6959 
EM6 017371 6961 
EM7 017427 6963 
EMS 017465 6965 
EM9 017516 6967 
ENDAPT 016302 8492 
ENOPAS 016277 8494 
ENDPKT 010512 8174 
ENVPAR= 001400 68564 
oP 011230 7701 
EOPERR 011252 8450 
EOP1 011360 8451 
EPAR = 000060 67678 
ERR = 100000 6803" 
ERRNUM 0263350 9455 
9847* 
ERRPOS 016212 9359" 
ERRVEC= 000004 66548 
ESC = 000033 66604 
9359 
9375 
9509 
9534 
ESCFLG 001251 6942m 
ESEQFL 014015 8732* 
EXPMRC 004640 7388+ 
7507* 
FINESC 024672 9616 
FLAG 007026 7765 
FLGHLD 013264 8806« 
FRERR = 020000 68054 
GETCHR 007622 7725 


GETPKT 007742 7771 


F 10 
MACY11 30A(1052) O9-APR-79 16:30 PAGE 82-4 
CROSS REFERENCE TABLE -- USER SYMBOLS 


8106s 
7791 


94418 
94428 


94148 


8147 
81468 


7777 


7797 


7833 


84454 


9461 


8522+ 


7409+ 
7526* 


8012 


9463 


8577* 


74998 


SEQ 0122 


CVKDBAO PDT-11 110/150 SYS Ex. 


CVKDBA.P11 
GFLAG 001252 
GFLCHK 013376 
GNS = eeenee 
GSAVIE 025250 
GTSWR = 104406 
HFDUP = 000010 
HILOWF 007044 
HT = 000011 
IDEWRQ 016340 
1E = 000100 
INITT = 000001 
INTFLG 013460 
INTSRV 013420 
10TVEC= 000020 
KILFLG 001264 
LF = 000012 
LINCT 014514 
LINE13 016243 
LOOP 002374 
LSTAD 031666 
LSTCHR 015342 
MAINT = 000002 
MAXMEM 012640 
MCLK = 004000 
MDE VA 5306 
MEM 016655 
MEMCT 003234 
MEMHID 003236 
EMORY 017057 
MEMTBL 012622 
MEMTST 002600 
MM = 010000 
MR = 000400 
MSG3 017103 
$64 017135 
MYTYPE 026306 
M12K 16631 
M16K 016635 
M20K 016641 
M24K 016645 
m30K 016651 
M4K 016623 
MBK 016626 
NOAPTS 004114 
NOTPRE 016676 
NULL 011574 
ODDPAR= 001000 


09-APR-79 08:20 


G 10 
MACY11 30A(1052) O9-APR-79 16:30 PAGE 82-5 


CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0125 
8886" 8937" 9690" 9841" 

8502 8543 8561 8574 8610 8616 8625 8630 8637 8643 8649 
8667 8673 8678 8788 88824 

9864 9865 

9782a 

8885 8936 9841 98658 

78458 7993 

9412 

68298 68668 68798 68848 7116 7119 7285 7307 7340 7351 7452 
7548 96 7597 7636 7637 7676 7677 7736 7749 7750 7754 
8094 8095 8569 8738 8778 8794 8901 8919 8955 8996 9005 
9099 9111 9126 9129 9141 9156 9159 9170 9185 9188 9199 
9224 9235 9242 9266 9269 9294 9305 9333 9619 9622 9643 
9727 9763 9841 

7158* 7160 7184* 7186 7206* 7208 7306* 7310 8524". 8527" 8529 
8568* 8570 8896" 89054 " 

8522 88968 

8445" 8475" 8812 8897 9050 9097 9124 9154 9183 9212 

9090 9481 9483 9485 9486 9488 9490 9493 9494 9496 9497 
9500 9501 9504 9506 9508 9510 9512 9514 9517 9519 9521 
9528 9531 9533 9535 9537 9539 9543 9546 

9095* 9104# 

7082 7086 7089# 8515 

99148 

9241* 92508 

7578 7585 7625 7665 

8537"  8692# 

7384 

7175* 7200* 7201 ~° 72228 

7190* 7191 72288 =9457 

94098 

7461 7470 

7377m 

8609 94038 





CVKDBAO PDT-11 110/130 SYS Ex. 


CVKDBA.P11 


PRT = 020000 
PRTST 003702 
PRVEC = 000200 
PRO = 000000 
PRI = = 000040 
PR2 = 000100 
PR3 == 000140 
PRG = 000200 
PRS = 000240 
PRE = 000300 
PR7 = 000340 
PS = 177776 
PSERR 026334 
PSW == 177776 
PWRVEC= 000024 


RESTVT= 104410 


RESVEC= 000010 
RING = 040000 
RTS = 000004 


RUN 017045 
SAVCON 016256 
SAVCUR 016241 
SAVEVT= 104407 


09-APR-79 08:20 


7498 
7997* 
7264 
7332* 


7165 
984i* 


8003+ 
7266 


7495* 


7176* 
9854" 


8268+ 


8008+ 
7270 


7498+ 


7182¢ 


8391* 


73278 


7281 


8977* 
8975 


8792 


8482 


89868 
8987" 


9021 


H 10 
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CROSS REFERENCE TABLE -= USER SYMBOLS 


9466 


9090* 


8682" 
9099* 


8523 


8706 


9669 


7692 


7425 
9841 
7746 


7688 


8386 
8968* 


8587« 


72298 


9094* 


8708 


9671 


7747 


7492 
94088 


7744 


9465 9466 9467 
89824 9463 


9217* 98418 


9457 


91030 


8780 


7815 7830 8938 


7493 7499 7501 


7811 7826 8479 


SEQ 0124 


9841 


7536 


8934 


CVKDBAO PDT-11 110/150 SYS Ex 


CVKDBA.P11 
SAVFLG 013102 
SAVARC 004636 
SAVPSW 013104 
SCOM 016534 
SEND = 000020 
SEQNUM 007034 
SERPOS 016227 
SERTTL 001256 
SERUNO 001260 
SERUNT 001262 
SETVEC 012642 
SIZE 011602 
SMPAR = 176622 
SMRB = 176622 
SMRC = 176620 
SMARSRV 015344 
SMARVEC= 000340 
SMTST 004062 
SMXB = 176626 
SMXC = 176624 
SMXSRV 015252 
SMXVEC= 344 
SNDPKT 007532 
SOFTER 011142 
SPRS 014516 
SREC = 00200 
SRSYN = 000020 
STACK = 001100 
START 001716 
START! 001746 
STATRQ 016351 
STKLMT= 177774 
STSYN = 4 
SUCCFS 007074 
SUMARY 007100 
SwWR 001140 
SWREG 000176 
SwO = 000001 
$swOO = 000001 
$wO1 = 000002 
$w02 = 000 
$wO3 = 00001 
$w04 = 000020 
$w0S = 000040 
SWO6 = 100 
$w07 = 000200 
$wO8 = 000400 
$w0O9 = 001000 
Swi = = 000002 
$swi0 = 002000 
$W11 = 004000 
Swi2 = 010000 


09-APR=79 08:20 


MACY11 30A(1052) 


09-APR-79 


1 10 
16:30 PAGE 82-7 


CROSS REFERENCE TABLE -- USER SYMBOLS 


7404¢ 
7521¢ 


7668 


7391 
7471 


73698 
74318 


9694 


7405 
7522 


7717 


7397 
9246* 


7455* 


7410* 
7528¢ 


87038 
7403* 


9266* 


7461* 


7287 


7411 
7529 


8734 


7404 


7470* 


7316 


7417* 
9464 


7410 


9235* 


7354 


7418 


7416* 


92428 


7462 


74748 7502¢ 
7417 7425¢ 
9245* 9269+ 
7557 7606 


SEQ 0125 


7503 


7426 


7646 


1 
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CVKDBA.P11  09-APR-79 08:20 OSS REFERENCE TABLE -- USER SYMBOLS SEQ 0126 
Swi3 = 020009 6654" 

Sw14 = 040000 66548 

Sw15 = 100000 66548 

Sw2 = 000004 66548 

Sw3 = 900010 66548 

Sw4 = 000020 66548 

SWS = 000040 66548 

Sw6 = = 000100 66548 

Sw7 = 000200 66548 

Sw8 == 000400 66548 

Sw9 = 001000 66548 ‘ 
SKIT = 000010 67978 68328 7402 7403 7513 7516 8584 8585 9841 
SYNCT = 040000 68458 

SYNC2 = 000000 6844s 

TBITVE= 000014 66548 

TCMDPK= 0 68928 7996 8170 

TCONT = 000020 68898 7727 8150 

TDATA = 000001 68918 8165 

TDIAGN= 000007 69044 8006 

TENDPK= 000100 6905# 8352 

TIDNTF 016351 7255 72619374 

TIMER 013156 7309 7343'S 7455S 7550 = 7599 «Ss 7639S 7679 «S446 S739 = «8745 880M 
TIMER1 013270 7090 7110 8473 8474 8838" 8932 9693 
TIMER2 013304 7434 8852 

TINIT = 000004 6890" 7716 7975 8161 

TITLE 015670 7056 © 9346 

TKSRV1 013462 7039 «89124 = 8978 

TKSRV2 013622 8736 8946" 

TKSIEN 013616 8918 8921 8925 8927 8931 8939" 
TKVEC = 000060 66544 7039* 7040" 8735 8978+ 
TKIB = 176502 6715# 7595-9115 

TKIS = 176500 67148 7596" 8551 9126s 

TKISRV 014536 7590 = 9115 

TKIVEC= 000200 66818 7589 

TK2B = 176512 67204 7635 145 

TK2S = 176510 67198 7636* 9156" « 

TK2SRY 014656 7630 99145 

TK2VEC= 000310 66834 7629 

TK3B = 176522 67258 7675 =—-917%4 

TK3S = 176520 6724# 7676* 8555 9185* 

TK3SRV 014774 7670 9174 

TK3VEC= 000320 6685" 7669 

TSG = 000012 68934 7995 8327 

T™MS1Z = 000200 68948 8052 8237 8258 8263 
NOP = 000000 6900# 

TPSRV. 014114 7280 9021# 

TPSRV2 014020 8737 8993 

TPVEC = 000064 66548 7280" 72818 

TPIB = 176506 67174 91 12e 

TPIS = 176504 6716 7597" 9111" 9129* 

TPISRV 014520 7591 = 911 1# 

TPIVEC= 000304 6682s 

1P2B = 176516 67224 ©9142 

TP2S = 176514 6721 7637* 914le 9159* 

TP2SRV 014640 7631 91414 


TP2VEC= 000314 6684m 


K 10 
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CVKDBA.P11 09-APR-79 08:20 CROSS REFERENCE TABLE -=- USER SYMBOLS SEQ 0127 

TP3B = 176526 67278 91718 

TP3S = 176524 67268 7677* 9170" 9188+ 

TPSSRV 014756 7671 91708 

TP3VEC= 000324 66864 

TRAPVE= 000034 665448 7044" 

TREAD = 000002 69024 7788 8211 8386 

TRIRY = 000010 68954 

TRIVEC= 000014 66544 

TSTAM 005202 74% 75398 

TSTTU 370 77498 7805 

TSTT58 006362 7743 77484 7820 7823 

TUBUFP 007056 7714* = =7753* 78528 8109 8117" 8232 8322 

TUCHR 007104 7727 79478 = =68116* 8149 

TUIMSG 007152 7723 79758 

TUINIT 006106 7700 77038 

TUPRES 012620 7081 7699 8567* 8576" 86848 

TURCSR= 177170 6710# 7710" 7732* 7736* 7749" 7754* 7831* 8094" 8125" 8178* 8569" 9321 9333¢ 

TURCVR 015600 7719 93204 

TURDBF 030210 7713 99064 

TURDLA 031664 9326 99120 

TURPNT 007054 7713* = 7714 7752* = =7753 78518 8114 9325 9331* 

TURVEC= 000260 66784 7718 

TURXDB= 177172 67118 7712 7751 8093 9296* 9330 

TUTST 006074 7570 7659 7683 7687 76998 

TUTVEC= 000264 6679" 

TUXCNT 007052 78498 8087* 9288 9292* 9300 

TUXCSR= 177174 6712@ 7711" 7733* 7750" 7832* 8092" 8095* 8126" 8179" 9284 9294" 9302" 9305" 

TUXMIT 015444 7720 92830 

TUXPNT 007050 78484 8088" 9295 9297* 

TUSBER 007064 7715* = =7731* 7755* 7785* 7888" 8112 8124* 8154" 8159" 8163" 8172" 8213* 8230+ 

9286" 9290" 9323" 9328" 9465 

TUS8M 016452 7745 8572 9382a 

TUS8MS 016457 7812 7827 93834 

TwC = 001000 68964 8005 

TWRITE= 000003 69034 7760 7983 8152: 8381 

TXTPTR 014346 astes 8727* 8998 9002* 9031 9037* 9042" 9044 9047* 9058" 90694 9705 9713 
* 

TYPDS = 104405 8488 8497 8499 9841 9863# 

TYPE = 104401 7056 7087 7217 7218 7278 7290 7291 7319 7320 7357 7360 7362 7465 


TYPFLG 001250 6942# 7046 7054* 7283* 8477 8774 8781* 8795" 9617 9620* 9639 9641* 9646+ 
9654* 9657" 9706" 9712" 98418 <s 

TYPOC = 104402 9731 9734 9843 9863s 

TYPON = 104404 98634 

TYPOS = 104403 98634 

T.RSVT 013106 87884 9865 

T.SAVT 013026 87748 9864 

11 016510 7610 8621 93854 

TICHR 014630 7593" 9112 9116 9120* 9132# 9459 

TICNT 014634 7594* 7600 9122" 9134e 





L 10 
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CVKDBA.P11 09-APR-79 08:20 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0128 
TIHLD 014632 7595* 9115" 9116 9133#@ 9459 
2 016512 7650 8628 9386" 
T2CHR 014750 7633* 9142 9146 9150* 9162# 9460 
T2CNT 014754 7634* 7640 9152" 91648 
T2HLD 014752 7635" 9145" 9146 91638 9460 
3 016514 7690 8635 93874 
T3CHR 015066 7673* 9171 9175 9179* 91918 9461 
T3CNT 015072 7674* 7680 9181" 91938 
T3HLD §=©.015070 7675* 9174" 9175 91928 9461 
ULITE = 040000 67428 
UNITNA 007032 7703* ##7709* #7807 7818* 78398 8358 8424 9465 9466 9467 
VIONTF 016361 7258 93754 
VIDONE 001254 69428 7242 9048+ 
VITALK 012666 7243 7259 87278 
VTTST 003244 7134 7216 7220 72368 
v7100 016577 8671 9393" 
WARNIN 016714 7087 94048 
WRKERR 007110 7950# 8218" 8266" 8271* 
WRKPNT 007112 79514 8219% 8234" 8261 8272* 
WRKSUM 007106 79498 8217* 8257 8270* 
WRIPNT 007140 79694 8217 
WRTTBL 136 7761 79684 
WIDPAK 607426 7768 80464 
WTIPK1 027170 7769 7969 98704 
WIPK2 027374 7970 9878" 
WIPK3 027600 7971 98864 
WTIPK4 030004 7972 9894" 
XFLAG 001253 69428 8916" 8924" 8952" 8960" 8993 9024 9677* 9680" 9695 
MIEFLG 014344 7050* 8917 8920* 8953 8956" 8995"  9026* 90674  9681* 
XMTIDUN 014112 8730* 8740 9006* Olle 
MXOFF = 000023 66624 8922 8958 9675 
= 000021 66614 8914 8950 9678 
SAPTHD 001000 69248 
SASTAT= seeene Y 
SATYC 025346 97904 
SATY1 025322 97904 
SATY3 025330 97904 
SATY4 025340 97904 9841 
SAUTOB 001134 69428 7070* 8926 9684 
SBASE 001244 69424 
SBDADR 001122 69424 
SBDDAT 001126 69424 
001160 69424 9841 
SCKSWR= seeeee 9863 
SCMTAG 001100 69424 7044 
CM3 = 000000 69424 
SCNILG 025257 8884 8935 97844 9841 
SCNTLU 025252 9745 97838 . 
SCPUOP 001216 69424 
SCRLF 001165 69424 8500 9656 9760 984i 9843 
SDBLK 026654 98594 
SDEVCT 001200 +94 8121" 8129"  8821* 8827" 8862 8868 9096" 9123" 9153 9182" 9211" 924/7e 
* 
SDEVM 001246 69424 7075* 7083 7085 7101 7132 7236 7298 7329 7369 
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fr 
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CROSS REFERENCE TABLE -- USER SYMBOLS 
9756* 


7111 7238 7300 
9632 9790 


9458 9459 9460 


9761 9841+ 


9857#«* 


9785« 


7371 


9461 


7423 


9462 


7483 


9463 


7534 


9464 


9465 


SEQ 0129 
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CVKDBA.P11 09-APR-79 08:20 CROSS REFERENCE TABLE -=- USER SYMBOLS SEQ 0130 
SATYP1 001221 69428 
SMTYP2 001225 69424 
SMTYPS 001231 69428 
SMTYP4 001235 69424 

001154 69428 9662 
SOCNT 027106 98614* 

027110 98614* 
SPASS 001176 69424 7044" 7113 7240 7275 7302 7373 7485 8484" 8487 
SPASTM 001006 69248 
SQUES 001164 69428 9780 9841 
SRAND 026336 7737 7990 8000 8059 98578 
SROCHR= eeerer VY 9863 
SRODEC= eeeeee 9863 
DROLIN= eeeee2 9863 
SROOCT= eeeree 9863 
SRTRN 011572 85154 
SR2A = weeeee 9863 
SSAVRE= eeeee8 9863 
SSETUP= 000006 70434 7044 98394 9841 
SSTUP = 177777 70434 
SSVPC = 001014 69254 
SSWR = 122000 66304 6638 6942 7044 9841 
SSWREG 601212 69424 7044 
STESTIN 001174 69428 9848 
STKB 001146 69428 8912 8946 9673 9741 
STKS 001144 69424 7116* 7119* 9622" 9649* 9671 9738 9763* 
$™N = 000001 66314 6638 
STPB 001152 69424 9001" 9036" 9061" 9697 
STPFLG 001157 69424 
STPS 001150 69424 7285* 8738* 8776 8778* 8792 8794" 8919 8955" 8996" 9005* 9021 9027* 

9054" 9619*  9643* 9669 9707 9708* 9711" 9726 9727" 9764" 9841" 
STRAP 027112 7044 98634 
STRAP2 027134 98634 
STRP = 000011 98634 98644 98654 
STRPAD 027146 98634 
STSTM 001004 69244 
STSTNM 001102 69424 9841 
STYPBN= s#ee08 YJ 
STYPDS 026440 98594 9863 
STYPE 024242 96144 9790 9863 
STYPEC 024524 9659 9666 96694 9670 9766 
STYPEX 024670 96984 
STYPOC 026710 98614 9863 
STYPON 026724 98614 9863 , 
STYPOS 026664 98614 9863 ’ 
SUNIT 01202 69424 
SUNITM 001010 69244 
SUSWR 001214 69424 8427 8432 
$VECT1 001240 69424 * : 
$VECT2 001242 69424 
$OFILL 027107 9861a* 
S4OCAT= eeeree 9841 
= 031666 6907# 69128 69174 69208 69238 69248 69254 6942#: 7044 8841 90688 97888 #97908 
9841 98434 98594 

-SASTA= teeee" 9790 . ie 
.$x = 001000 69248 $ 


B 11 
CVKDBAO PDT-11 110/150 SYS EX. MACY11 30A(1052) O9-APR-79 16:30 PAGE 83 
CVKDBA.P11 09-APR-79 08:20 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0131 


ERROR 66548 7149 7163 7168 7189 719% 7210 7252 7254 7268 7273 7312 7346 73% 7400 
7407 7415 7420 7437 7443 7458 7505 7511 7518 7524 7531 7553 7602 7642 7682 
7734 7776 7781 7784 77% 7800 7803 8454 8457 8460 8463 8466 8469 8472 8742 


GETPRIi 12788 66548 


L 43938 66544 
NEWTST 15858 66548 
POP 21034 66548 8828 8869 9790 9857 9859 


C 11 
CVKDBAO PDT-11 110/150 SYS EX. MACY11 30A(1052) O9-APR-79 16:30 PAGE 83-1 
CVKDBA.P11 09-APR-79 08:20 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0152 


-SAPTH 52618 66248 6924 
-SAPTY 54368 66248 9790 


-SCATC 9058 66228 6907 
‘conte 10168 66228 6942 


SE 
-SERRO 26438 662358 984i 
-SERRT 28388 662358 9843 


-SRAND 42188 66248 9857 


STRAP 39918 66234 9863 
-STYPD = (314468 66234 9859 
-STYPO 30484 66244 9861 


- ABS. 031666 000 


ERRORS DETECTED: 0 


CVKDBA, CVKDBA/CRF=SYSMAC.SML,CVKDBA.P11 
RUN-TIME: 53 62 4 SECONDS 

RUN-TIME RATIO: 257/121=2.1 

CORE USED: 34K (67 PAGES) 





